
Character Graphics 



Structured Gaixfe 
Design: Transform 
Imagination Into 
Graphic Displays 



/I Directory Menu for 
Apple, Atari, C64,| 
and Color Computer 



Faster Math" 
Operations in 
Microsoft BASIC : 

Atari Graphics -1 v 
Notepad in FORTH 
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60 HI« INT (H /256):L0 »*i 

70 POKE 938, UO: POKE 939»HI*:{.f| 

FOR I ■ TO N - 1: HEAD ,,11 

INPUT "OIVE KEY WORD: "jB&f 

IF B8 » »'• THEN 200 

INPUT "MX OR FIRST OCCUftl 

REM **»»**»#»*»»**»*****»}| 

CALL 768,B$,A$: REM GET M 

HEM »«K«B«*«»K»«'»K«ftttftKf&f 

150 IF PEEK (26). « 255l*HES ; : 
P2EK (27))s PRINT iREMSf 

160 if f? « »f»1then;2o6 ; J 



See page 69 ' ' Seefaage4p. 




Animated Graphics Routines^ the 6809 
Random Number Generator for the Apple 
Review of Powerful Programmer's Utility for C64 
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his month's issue of MICRO in- 
troduces a new format, making 
___ it even more valuable and 
easier to read. >ust turn to the Table of 
Contents for a peek. We've sec- 
tionalized the magazine by system — 
Apple, Commoc'oxe, Atari, and Color 
Computer. Now you have at least 10 
to 15 pages of the magazine devoted 
only to your computer! Plus we still 
offer a general section with informa- 
tion for everyone. 

We haven't altered MICRO'S 
unique content or professional style. 
You can still count on MICRO for in- 
termediate to advanced information 
on these systems — serious, useful in- 
formation for serious computerists. 
And, since we've more carefully 
defined the systems we cover 
(eliminating the OSI, AIM, SYM, and 
KIM as discussed in August's 
Editorial), we are able to cover more 
completely the Apple, Commodore, 
Atari, and Color Computer systems. 



We think you'll find, over the next 
few months, that MICRO is growing 
in quality. Our loyal, long-time 
readers will be pleased with the way 
MICRO continues to meet their ex- 
pectations, and new readers will be 
pleasantly surprised at discovering a 
serious, useful, professional source of 
information. 



October's Highlights 

Our concentration in October is 
on programming techniques. We offer 
a directory menu for each system, 
plus many other helpful techniques 
and methods to improve your pro- 
gramming. In the general section 
Loren Wright provides a routine to 
plot data with character graphics for 
all the systems, and Michael Allen 
demonstrates structured game design. 

In the Apple section look for 
"Rapid String/Substring Search," by 



L.S. Reich, a random number 
generator from Bill Walker, and a 
linear search technique by Richard 
Vile. The Commodore section brings 
you faster math operations in 
Microsoft BASIC (Peter Hiscocks), 
and a bank-switched JSR by Terry 
Peterson. 

Atari users will find their directory 
menu, Paul Swanson's From Here to 
Atari column, and "Atari Graphics 
Notepad in FORTH," by Mike 
Dougherty. And, for Color Computer 
enthusiasts there is John Steiner's 
CoCo Bits column, a directory menu, 
and animated graphics routines from 
Craig Carmichael. 

Each month the system sections 
will become more carefully organ- 
ized; in November each will contain 
its own Software and Hardware 
Catalog and Reviews in Brief depart- 
ments. We hope you enjoy our new 
format. 



Enter Our 

Graphics Contest!!! 

We're sponsoring an exciting 
contest for those of you interested 
in designing graphics pictures. 
You could win one of many prizes 
— big and small! Just use your 
favorite graphics program on your 
favorite microcomputer (either a 
Commodore, Apple, Atari, or 
Color Computer) and create! 
Tarn to page 108 for all the 
details! 




About the Cover. 

The graphic this month was 

created on the C64 by 

Al Korostynski's directory 

menu program. 
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Advancing Computer Knowledge 



Programming 
Tecftitl^yes 

Phil Daley 

A brief discussion on 

useful techniques 



Apple 



Phil Daley 

An introduction to this user- 
friendly utility 



Plotting Data with 
Character Graphics 

Loren Wright 
General purpose routines for 
the C64, VIC-20, PET, Apple, 
Atari, and TRS-80C 




Stryctyred Gam® 
Design 

Michael Allen 
Transform imagination and 
fantasy into graphic or text 
displays 



kppl® Slices 

Jules Gilder 

Turn your IBM PC into an 
Apple 



Rapid String/ 
Substring Search 

L S. Reich 

Use a machine-language 
program to obtain a rapid 
array search. 



12 Directory Menu for 



9? interface Clinic 

Ralph Jenny 

Convert your serial I/O into 

parallel I/O using a UART 



Keith Davison and Phil Daley 

Convert the normal 
CATALOG routine into a 
string array of individual 
entries 



44 Random 
Generator 

Bill Walker 

Theoretical basis for 
generating uniformly 
distributed pseudo-random 
numbers 



Linear Search 

Richard Vile 

Learn how to search through 

a list of numbers 
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Commodore: 



12 



Commodore Compass 

Loren Wright 

A look at POWER64 from 

Pro-Lin© Software 



Atari 



54 Faster Math 
Operations In 
Microsoft BASIC 
Peter Hiscocks 
Speed up array operations 



14 From Here to Atari 

Paul Swanson 

Information on the three 
GTIA modes and a new 
editor, EREDIT 
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@4 Directory !®ny for 
the Atari 

Jerry White 

All you need are your DOS 
master disk, a blank disk, and 
these two BASIC programs 



Color Computer= 



22 CoCoBSts 

John Steiner 

New disk ROMs, the J & M 
disk controller card, and 
E!ite*Caic 



53 Bank-Switched JSR 
Terry Peterson 
Use SuperPET's bank- 
switched memory with 6502 
machine-language programs 



62 Directory Many for 
the Commodore 84 

Al Korostynski 

A fast version of this utility 



66 Atari Graphics 
Notepad In FORTH 
Mike Dougherty 
interactively construct 
images through simple 
keyboard commands 



7® Directory Merty for 
the Color Computer 

Steve Kronschnabel and Phi! 

Daley 

This version offers a 

directory backup 



7? Animated Graphics 
Routines for the 6i0i 

Craig Carmichael 
Display moving animated 
figures and custom 
characters 
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Videx Combo 
W1Z80 
Smarterm II 



375.00 235.00 
249.95 164.95 
1 79.00 129.95 

LIST ARK 



r. * 399.00 334.95 

CPMCard ™™ Q 494.95 

Premium PaK o 22495 

SoUcard jTtc 00 449.95 

SoitcardPlos 645.00 ^^ 

7 Card 



WORD PROCESSING LIST 



99.95 

54.95 

109.95 

79.95 

134.95 

199.95 

99.95 

99.95 



Magic Window II 1 49.95 

Bank Street Writer 69.95 

Pie Writer 80 Col. 149.95 

Screenwriter II 129.95 

Word Handler 199.95 
Pro Easywriter Combo 300.00 

Letter Perfect 149.95 

Super Text 125.00 

DATA BASES LIST ARK 

Data Perfect 129.95 109.95 

DBase II 695.00 499.95 

DB Master 229.95 1 59.95 

PFS 1 40.00 99.95 
The General Manager 229.95 1 59.95 

d Util 99.95 74.95 

PFS Graph 140.00 99.95 

.PFS Report 125.00 89.95 



Alpha Plot 
| Uf "'fyC,7y 



LIST 



39.50 

£9.50 

29.50 

§4.95 

34.95 

29.50 

29.50 

29.50 

20.0Q 

20.00 
£ 9 -50 



4ftfC 



|9.9 5 
2».95 

fi 95 
1 5.95 

24.95 

21.95 

21.95 
fl.9S 

4.95 
U.95 
21.954 



389.95 289.95 

379.95 289.95 

409.95 309.95 

725.00 639.95 



MODEMS LIST ARK 

Apple Cat II 
Micromodem 
Micromodern w/term. 
212 Apple Cat 

UTILITY LIST ARK 

Watson 49.95 39.95 

G.P.LE. 64.95 44.95 

E.P.F. IV 79.95 49.95 

The Inspector 59.95 49.95 

Locksmith 99,95 69.95 

Quick Code 295.00 214.95 

Routine Machine 64.95 44.95 

Visicalc Preboot 49.95 39.95 

Apple Writer Preboot 1 9.00 1 5.00 



Microsoft 16K 
RAM disk 128K 
RAM disk 320K 
Ramex128K 
RAM Plus 16K 
ROM Plus 
STB128K 
WIZ16K 



LIST ARK 



99.95 
379.95 
999.95 
497.00 
189.00 
155.00 
499.00 
95.00 



79.95 
304.95 
804.95 
359.95 
139.95 
124.95 
359.95 
59.95 



x owifauwicATaows list ark 

Data Capture 89.95 59.95 

Hayes Terminal Prog. 99.95 64.95 

ProAscii 129.95 89.95 

afliSC. Enhancement LIST ARK 

CCS Calendar/Clock icaoo 99.95 

Enhancer II U9.00 119.95 

Eprom Programmer 395.00 355.95 

Koala Graphics Tablet 124.95 89.95 

Kraft Joystick 64.95 49.95 

P100 Sweet P Plotter 795.00 699.95 

ROM Writer 175.00 139.95 

Snapshot 119.00 94.95 

Super Fan II 79.95 59.95 

Super Fan w/Zenar Ray 109.95 89.95 

Super Switcher 295.00 21955 

Videx Function Strip 7^.95 59.9 
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OS! Readers Respond 



Dear Editor: 

It was with great sadness that I read 
your editorial in the August, 1983, 
issue proclaiming the death of OSI, 
AIM, SYM, and KIM. If you really 
mean not to accept any more articles 
on these micros, such an action is 
Oedipal, or at least patricidal, on your 
part and may well be expected to bring 
the historic retribution from the Fates. 
(Personally, I would have recommended 
the Furies.) 

I believe you may have miscalcu- 
lated the extent of your present (and 
future) readership concerned with 
these micros, perhaps due to some in- 
adequacy of your sampling technique 
or to the reticence of many users to 
answer surveys, etc. 

As an example of such a possibility, 
I would cite the fact that, although they 
have been rather slow to get going in 
this area, the American Association of 
Physics Teachers, which represents the 
vast majority of both college and high 
school physics teachers in the U.S., has 
presented workshops at each of its 
meetings over the past three years (and 
at numerous other times and locations), 



which have introduced more than three 
thousand teachers to the use of the KIM 
and SYM. In fact, it was only this year 
that their advanced interfacing 
workshop was entirely shifted from the 
KIM to the SYM. These activities are 
building a considerable base of com- 
petence in the laboratory application of 
single-board computers and are 
resulting in the appearance in the 
scientific literature of applications of 
these devices. Single-board micros are 
the essence of such interfacing applica- 
tions, where it would be patently ab- 
surd to dedicate on entire Apple or 
Commodore 64. 

I have been a subscriber to MICRO 

almost from its beginning and I have 

always appreciated its role in supplying 

information on the specialized 

microcomputers that were of greatest 

interest to my own applications in the 

educational field. Please don't abandon 

that unique position and become just 

another general computer magazine. 

Charles D. Geilker, Chm. 

Department of Physics 

William Jewell College 

Liberty, MO 64068 



Dear Editor: 

The dropping of just the OSI and 
ASK articles and focusing on just the 
most popular and future computers is a 
mistake. Obviously, you are trying to 
expand your audience — one of tnem ' -; 
making more room in the magazine — 
you can reach an even larger audience 
by covering all types and brand of 
machines. That's one reason why 
BYTE and Computers and Electronics 
are so successful. Why limit yourself to 
just a certain group of machines? Don't 
get me wrong, I'm not condemning 
your decision. Seeing a magazine with 
a potpourri of very useful information 
become specifically directed to a 
limited audience is like watching the 
United States step down on the ladder 
of world importance. 

I guess the theme of this letter is to 
remember that not everybody has a 
PET, Coco, Atari, TI 99/4A, or any 
other of the few machines that you do 
cover. One thing that seemed to be a 
message in the August edit orial is that 
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if one submits an article demonstrating 
a new use for the MC68000 processor 
specific to the ASK machines, you'll ig- 
nore it! Again, I ask: Why just cover 
ertain machines? Doing this just con- 
tradicts the subtitle of the magazine: 
"Advancing Computer Knowledge". 
Maybe it should now read: "Restricting 
Computer Knowledge". How about 
editorials on the latest portables? This 
letter was written on a Kaypro 4. 
Others using portables will appreciate 
usefu) ^formation on this machine. Or 
how about the new Heathkit, the IBM 
PC, or the Hewlett Packards? Put all 
this together and you have either a 
new section in the magazine or a spe- 
cial issue! 

Well anyway, thanks for helping me 
get the most out of my machine — 
something that other publications just 

couldn't have done. 

Timothy Hu 

1601 E. Lincoln Way 

Cheyenne, WY 82001 

MICRO 



Atari FORTH Topics 

Dear Editor: 

I was pleased to see Mr. Dougherty's 
article on FORTH applications for the 
Atari (62:92). I would be even more 
pleased if he (or anyone!) could grapple 
with another FORTH-for-Atari issue: 
disk files. Since FORTH disk files are 
incompatible with other DOSes, in- 
cluding Atari DOS, an article on 
reading and writing Atari DOS files 
from FORTH would be a boon. 

Also, I thought the magazine's 
name was "MICRO " because of the 
computers, not because of its 
typography. If an article deserves no 
better than unreadable microscopic 
print, should the article be printed 
at all? 

Mr. Swanson's column has twice 
mentioned ways of controlling 
peripherals from the Atari joystick 
parts. The explanations have been terse 
and in expert's language, largely, I ex- 
pect,because of the limits to space for a 
column. An article, however, would 
give him the chance to expand on the 
issue in terms understandable (or at 
least usable) by ordinary BASIC pro- 
grammers. Example programs would be 
necessary, even if in tiny print! 

Ronald Pitts 

RD#5 

Kittanning, PA 16201 



Dear Editor: 

Thank you for the article "An Inex- 
pensive Joystick for the Apple II" 
(62:48). I made it, and it works (after 
figuring out the orientation of the con- 
nector pin diagram). One note: I found 
a 16-pin DIP Header at my local Radio 
Shack (Part no. 276-1980, $1.69+ tax). 

Please, have more program listings 
for Apple; I originally subscribed to 
MICRO because it had good programs 
that I could enjoy. I'd also like to see 
more hints/techniques on program- 
ming — and, if you can find them, pro- 
jects like the joystick. 

Carl E. Serkland 
507 Fontonett Ave. 
Livermore, CA 94550 



(Continued on next page) 
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The laraest public computer show and business office equipment exposition 
Ivlr held in Washington is coming to the Convention Center, October 27-30 
fqM If vou've been thinking about a business computer, word processor a 
ifdeo qame or a pl?sonSl or home computer-The Fourth Annual Mid-Atlant.c 
ComoSfeTshow and Business Office Equipment ExposUion is the place to go 

their machines. 

Unlike a computer store, The Computer Show offers you the opportunity to 
comDar/question and learn about computers in a nonintimidat.ng, no obli- 
Son fun S atmosphere. If you decide to buy at the show, you may save 
hundreds even thou of dollars because many products on display are 

for sale at super show prices. 

The show features hardware and software for business, industry, government, 
educS home and personal use, including micro and mini computers, data 
and word processing equipment, computer graphics, peripherals, accessories, 
publications, support services and supplies. 

Another major segment of the show is office systems, office products and office 
eSSipmem such as electronic typewriters, telecommunications, telemarketing, 
cS Shines, furniture, business machines, dictating equipment, microfilm 
SStoSSrt facsimile machines, office supplies, publications and business 
services. Admission is $5 for adults and $3 for children. 



SHOW HOURS: 
THURSDAY-SUNDAY 

OCTOBER 27-30, 1983 
10:30 A.M.to6 P.M. 

WASHINGTON 

CONVENTION 

CENTER 

H & 9th Streets, N.W. 
Take Metro Blue, Orange or 
Red Lines to Metro Center. 
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PRODUCED BY COMPUTED EXPOSITIONS, INC. 

POST OFFICE BOX 3315, ANNAPOLIS, MARYLAND 21403 

TELEPHONE -WASHINGTON, DC AREA: 261-1047 

TOLL FREE OUTSIDE MARYLAND: 1-800-368-2096 
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L®tt@rbOX (continued) 



Dear Editor: 

I read in your CoCo Bits column 
that a new ROM version for the Color 
Computer was expected soon. ROM 
version 1.1 has been out for some time 
as I have had my CoCo for over six 
months and it contains 1.1. This can be 
determined by typing "EXEC 41175" 
then "ENTER". This will cause 
the ROM version to be printed to 
the screen. 

The disk Scripsit and Spectaculator 
from Radio Shack are run by typing 
"RUN DOS" then "ENTER". 

I know a lot of people at work with 
micros that used to laugh at the Color 
Computer and think of it as a toy, but 
no more. Some of them have even told 
me they wish they had purchased one 
instead of what they have. 

Your magazine has a lot of good in- 
formation in it. It would be great to see 
more on the Color Computer. 

Brent Flemming 
3rd Floor, Systems 
700 Newport Center Dr. 
Newport Beach, CA 92660 



Newtom-Rapfoson: Novel or Not? 

Dear Editor: 

I did not have the pleasure of 
reading "Extending Newton — 
Raphson's Method to Evaluate Com- 
plex Root" by P. P. Ong (56:71), but 
have just spotted Dr. Ong's letter in the 
July issue, wherein he mentions that 
the "extension (of the Newton- 
Raphson method) to include complex 
roots is novel." 

I am afraid it is not that novel at all. 
In my textbook, Introduction to 
Numerical Methods, published by the 
Macmillan Publishing Company in 
1970, I use the Newton-Raphson 
method to solve an equation with com- 
plex roots. Though no prior instances 
of such use come immediately to mind, 
I doubt that the technique was new 
even back in 1968 when the book was 



written. 
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Peter A. Stark 

P.O. Box 209 

Mt. Kisco, NY 10549 

(Continued on next mge : < 
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GRAPHICS TABLET AMD SOFTWARE 

^ Teachers, artists, engineers, programmers & hobbiests 

find VersaWriter an easy to use toot for creating 

micro computer graphics. No programming 

experience is required. Pictures can be made 

by simply tracing. Even children can explore 

the exciting world of computer graphics. 

The VersaWriter is as limitless as your 

imagination. 

VersaWriter contains complete software for 

drawing with color, brushes & dots. Add text 

or fill in over 100 colors. Create your own shapes 

and place anywhere on the screen. Use Area/Distance, 

Move Picture, Electronic Drawing & Skeleton programs. 

Additional features include Reverse Picture, Scaling, 

Spf it/Fuii Screen, Save, Load, Erase plus much more . . 



Complete Hardware/Software System for Apple II/II+/II© 

(Also available for Aiari and IBM PC) 



$199.00 




EXPANSION PhC 8 - Create real time shape 
tables in full color. Contains 350 
predefined shapes for architecture, 
games, circuit boards, etc. Edit or define 
pictures using the true color HIRES 
microscope with up to 4x magnification. 

$39.95 



EXPAM80M PAC fii - Adds 10 powerful 
graphics commands to VersaWriter 
including: Shrink, Magnify, Fast Picture 
Loader, Combine Two Screens, Color 
Remover, and Mirror & Upside Down 
Functions. Mix func^ons to create unusual 

$39.95 




Requires VersaWriter EXPANSION PAC 831 - NEWI To be 

released this Fall - Animation Tool Kit. 

$49.95 



6, iilC 3541 Old Conejo Rd. #104 • Newbury Pork, CA 91320 « <80S)49JM956 
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LetterbOX (continued) 



Dear Editors: 

I refer to Peter Stark's letter to you 
concerning my article titled "Extend- 
ing Newton-Raphson's Method to 
Evaluate Complex Roots" (56:71). I 
have already stated that NR's method is 
not new and numerous algorithms have 
already been tried long ago to extend it 
to complex roots (e.g., see W.E. Grove, 
Brief Numerical Methods, Prentice 
Hall, 1966, p. 9-14, as referred to in 
my article). 

In Peter's book, the method described 
is, unfortunately, merely a simplified 
repetition of Grove's method and many 
others before him. Its chief defects, 
which render it unsuitable tor a 
microcomputer (or even a more power- 
ful computer), are: 

(a) It necessitates a computer that can 
hcndle complex algebra, a require- 
ment that is hard to satisfy even 
with present-day advanced 
microcomputers. 

(b) Convergence is often so elusive and 
slow that it rarely concludes 
successfully. 

(c) Perhaps most important of all, the 
algorithm suggested by Peter re- 
quires a lot of preliminary tedious 



(and error-prone) calculations, such 
as to rationalize all the term de- 
nominators. My program is univer- 
sal and does not require any prior 
manipulation of complex numbers. 
Just enter the coefficients of the 
polynomial and the computer takes 
over completely. 

Beset by all these defects, Peter's 
algorithm is probably only suitable as 
an academic topic. I hope his readers 
would not be enthusiastic enough to 
take up his advice (p. 116 second para- 
graph last line) that his method is 
worth trying in actual practice. As a 
lecturer myself I know that the surest 
way to stifle a student's interest in any 
subject is to disappoint him with un- 
attainable expectations especially after 
considerable effort has been put in. 

Was it just by pure chance that for a 
practical illustration of his method, 
Peter had chosen the most simple 
polynomial equation: 

x 2 + x + 1 = 

This example is almost too trivial for 
illustration on my program. It took 
barely five seconds to yield the answers: 



x = - 0.499999999 ± 0.866Q35403i 

on my Apple II + computer, a result 
that is more accurate than Peter's. Such 
an oversimplified case certainly cannot 
be regarded as typical. Had Peter tried 
with even slightly more complicated 
examples, he would have realized the 
limitations of his method. I am quite 
sure that Peter's method is unlikely to 
be successful with either of the ex- 
amples I used in my article. 

I will leave it to your readers to 
judge whether my method is superior. 
The best way for Peter to support his 
contention that my algorithm is not 
novel is to cite some earlier paper 
describing the de Moivre extension of 
NR's method that I have proposed. 

Dr. P.P. Ong 

Physics Department 

National University of Singapore 

Kent Ridge 

Singapore, 0511. 



Send your comments, criticisms, or 
ideas to Letterbox, MICRO magazine, 
P.O. Box 6502, Amherst, NH 03031. 




ATTACHED PROCESSOR 




$1495 



ACORN 



THE MONTHLY JOU&NAL FO 
COMMODORE COMPUTER IT" 



• « 



$0*** 



Vtl 



H 



Available for APPLE Si, IBM PC, 
R3232C Terminals, and OEM. 



HARDWARE 

• 68000 at 8 MHZ no wait states 

• 128K RAM and 32K ROM 

• Two RS 232c serial ports 

» Real time clock and vectored interrupts 

• Parallel Host Interface 

SOFTWARE 

• Monitor with built-in assembler 

• Host Computer Interface 

• S-record compatible development system 
Send $10 for 100 pp Users Manual Refunded with order 

or free brochure. 
Coming Soon 
Hi Resolution Color Graphics Display Board JM1 ,_.., 
51 2 x 512 Pixels SrGB output. NEC 7220 controller witht 28K RAM. 

CfcNI kit with manuals, schematics, and circuit board for $100. 

ACORN SYSTEMS INC. 

4455 TORRANCE BLVD., #108 • TORRANCE, CA 90S03 

•Appte » is a rradernaik of Apple Computet Co. 
?IBM PCI* a trcxtemak of IBM Corporator*. 





pgJl55s5s5S3 j 



VSC-20 



GET YOUR MONEY'S WORTH 

You've probably made a sizeable investment in your computer 
equipment. COMMANDER can help you make the most of it. 
Each issue brings you the no-nonsense advice you need to 
• a on the leading edge of this constantly changing 
/field. COMMANDER will be your reference 
'to the world of computers . . . with the best, 
most comprehensive coverage you can get!! 

Subscribe now and take advantage of our 
limited offer of $4 off the one year subscription. 

C 1 YR. U.S. $220 2 YR. U.S. $40D 3 YR. U.S. $58 

'Pn<.t>> do not include $4 DiVountlPficw in U.S. fund* 

Washington residents please acid 7.8% sales tax 

—Subscription Orders Only- 
Toll Free Number: 1-800-426-1 830 

(except WA. HI. AK) 

COMMANDER 

P.O. BOX 98827 

TACOMA, WASHINGTON 98498 

(206) 584-6757 
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When f #n 
least expect it. 




In a few millionths of a second, common electrics! surges and spikes 
can enter your data processing equipment end cause memory loss, 
false logic and misregistration. Surges very often do permanent 
damage to microcircuitry. 

f H11&1§€¥ Surge Suppressors catch surges and spikes before they 
have a chance to enter your equipment In billlonths of a second 
(Nanoseconds), IIMIPliC? Surge Suppressors dissipate surges and 
spikes from any side of the line (most protect only one side). 
Model FS-P piugs into the wall outlet to protect that outlet m4 mil 
otiher its @n ti eipsuif • For safety, it is fused to protect from 
overloads. 

No computer should be without the protection ©fa fHHWCff Surge 
Suppressor...esp*da!if f®srsl Write or call for further formation, 
Available from office products retailers. 



S2ZZZZZM7® Surge Suppressors 

a product of Winders & Geist, Inc P.O. Box 83088 Lincoln, NE 68501 402/474-3400 
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by Loren Wright 

POWER64 Makes Programming Easier 

How would you like to be able to hit a single key on 
your Commodore 64 and have "POKE 53281," 
appear instantly on the screen? This "instant 
phrase" feature is only one of the many capabilities of 
POWER64. 

To start, as soon as the POWER64 system is loaded 
in, many of the keys have new functions. For instance, 
the shifted "R" key immediately types "RETURN" on 
the screen, and the Commodore key and the "L" key 
cause "LEFT$(" to be printed. Also, the program listing 
behaves differently. Just move the cursor past the top or 
bottom of the screen and the listing begins to scroll, line 
by line. There is no longer any need to keep your finger 
poised nervously over the STOP key for fear of missing 
that vital line. 

There is an AUTO command that automatically 
prints the next line number as you hit RETURN. If you 
quit the sequence (by hitting RETURN on the line with 
only a line number), you can resume programming where 
you left off simply by typing AUTO again. Of course you 
can specify the increment. 

The DELETE command allows vou to delete a whole 
range of lines with a single command — no more one-by- 
one line deletions! The RENUM command is the most 
powerful I've seen. It actually lets you renumber parts of 
your program, which means you can keep all your 
subroutines beginning on even thousands! 

So much ior the everyday commands. There is a lot 
more. As I mentioned at the beginning, you can redefine 
any key to a phrase, which could even be something like 
"FOR 1 = 1 TO 100: ?I: GOSUB 2000: NEXT I". When 
you hit the redefined key (usually a shifted one), the 
whole phrase is instantly typed on the screen for you. 
I You can even redefine a key to execute a whole 
subroutine consisting of many lines. 

POWER64 has one of the most powerful search and 
search-and-replace packages I've seen: there are wild 
characters, a whole-program or next-occurrence opera- 
tion, and a convenient repeat. Even the syntax is easy to 
remember. 

Next, there's a whole set of debugging commands. 
The star of the show is the TRACE command, whose op- 
tions include displaying at the top of the screen or in-line 
am full-line displays with variable value or just line 
numbers. After you invoke the TRACE command and 
type RUN, you can single step, trace continuously, or 
even execute for a while without any trace display. 
Responses to GET and INPUT statements are handled 
easily. The WHY command lets you know where in the 
program line an error occurred, and the DUMP command 
displays the values of all variables (except arrays). The 
DUMP display is such that you can easily change the 
value of any variable and CONTinue program execution. 
The FIX and PTR commands restore the BASIC 
pointers that get fouled up, especially when you have 




loaded a machine-language program to a strange place. 
FIX also reinitializes POWER64. EXEC is a very powerful 
command that allows you to turn control over to a 
logical file. 

TEST lets you LOAD (or type in) and RUN a second 
program without destroying the first. BACK sends you 
back to the first program. 

That just about covers the capabilities of POWER64, 
but there is more to be considered. Fi* Jt, POWER64 is 
relocatable and automatically adjusts itself to the current 
Commodore 64 memory configuration. That means that, 
if you have a cartridge in place that takes memory from 
the top of BASIC, POWER64 will load in automatically 
below. (It does work with the C64-Link cartridge.) 

Brad Templeton, the author of POWER64 and 
POWER (for the PET, reviewed in MICRO 50:69), has 
written a convenient resident assembler called PAL, 
which works extremely well with POWER64. The PAL 
assembler will be reviewed in a future issue of MICRO. 
The manual, by Jim Butterfield and Brad Templeton, 
does well at both teaching the newcomer how to use the 
product and serving as a good reference. There are several 
appendices that help the advanced programmer get even 
more from POWER64. 

It is easy to add your own commands and default-key 
definitions to POWER. In fact, a disk-oriented expansion 
package called MOREPOWER is included on the disk. 
MOREPOWER makes most disk tasks considerably 
easier. A single key will get you the disk directory or the 
disk-eiTor messages. You can LIST a program (or even a 
sequential file!) from the disk without destroying your 
current program. There are SIZE and START commands 
that can read the length or beginning (for ML programs) 
of any program file on disk. You can LOAD or LOAD and 
RUN a program from a directory listing by simply mov- 
ing the cursor to the left of the entry and hitting a single 
key. You can MERGE one BASIC file into another. (This 
is also possible with the EXEC command, but more is in- 
volved.) There are several others. 

To prove that I haven't been paid off for this glowing 
review, I'll mention a couple of negative items. The 
AUTO command works in an annoying manner (at least 
for me). When you go to a previous line to make a 
change, the system doesn't recognize that you are no 
longer cranking out lines in the expected sequence. 
Other AUTO commands I've seen can handle this. 

The price ($99.95) is certainly fair for ill the things 
you get, but you should consider whether you really need 
everything POWER64 has to offer. Unless you do a fair 
amount of programming, .he answer may very well be 
no. The manual mentions a cartridge version, which 
would make using the package more convenient, but less 
flexible. This is the only practical way that people 
without disk drives could use it. 

POWER64 is available from Pro-Line Software Ltd., 
755 The Queensway East, Unit 8, Mississauga, Ontario 
L4Y 4C5 (416-273-6350). 
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THE 

MONKEY WRENCH 
ti 



A PROGRAMMERS A8D FOR ATARI 800 

NEW AND IMPROVED - 18 COMMANDS 

PLUGS INTO RIGHT CARTRIDGE SLOT 



If vou are a person who likes to monkey around with 
the ATARI 800. then THE MONKEY WRENCH II is 
for you!! Make your programming tasks easier, less 
time-consuming and more fun. Why spend extra 
hours working on a BASIC program whe" the 
MONKEY WRENCH can do it for you in set -ids. 
It can also make backup copies of boot type 
cassette programs. Plugs into the right slot and 
works with ATARI BASIC cartridge. 
The MONKEY WRENCH providfcs 18 direct mode 
commands They are: AUTO LINE NUMBERING - Pro- 
vides new line numbers when entering BASIC program 
lines RENUMBER - Renumbers BASIC'S line numbers 
including internal references DELETE LINE NUMBERS 
- Removes a range BASIC line numbers 
VARIABLES - Display all BASIC variables and their current value Scrolling - Use the 
START & SEI ECT keys to display BASIC lines automatically Scroll up or down BASIC pro- 
gram FIND STRING - Find every occurrence of a string. XCHANGE STRING - Find every 
occurrence of a string and replace it with another string MOVE LINES - Move lines from 
one part of program to another part of program COPY LINES - Copy lines from one part 
of Droa am to another part of program FORMATTED LIST - Print BASIC program in 
speaal Ime formal and automate Jage numbering DISK DIRECTORY - Display Disk 
Directory CHANGE MARGINS - Provides the capability to easily change the screen 
margins MEMORY TEST - Provides the capability to test RAM memory CURSOR 
EXCHANGE - Allows usage of the cursor keys without holding down the CTRL key 
UPPER CASE LOCK - Keeps the computer in the upper case character set HEX CON- 
VERSION -Convertsa hexadecimal number toadecimal number DECIMAL CONVER- 
SION - Converts a decimal number to a hexadecimal number MQMTOR - Enter the 
machine language monitor. 

In addition to the BASIC commands, the Monkey Wrench also contains a machine 
lanauage monitor with 16 commands used to interact with the powerful features of the 
6502 microprocessor 
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km mm e babbit cartridge 

MEW FEATURE! 

DATA FILES! jf ^ 

"High Speed ff . ^ 

Cassette 

Load and Save'" 

$39.95 



RABBIT 



£'n^ 



$59.95 



(includes carnage 
and manual 



for VIC 



Don't waste your Life away waiting to LOAD 

and SAVE programs on Cassette Deck. 

Load or Save 8K in approximately 30 seconds' 

Try it— your Un-Rabbitized VIC or 64 takes 

almost 3 minutes. It's not only fast but VERY 

RELIABLE 

Almost as fast as 1 541 Disk Drive! Don't be f t o\- 

ish _ why buy the disk when you can get the 

Rabbit for much, much less! 

Allows one to APPEND Basic Programs! 

Easy to install — just plugs in. 

Expansion Connector on rear of the VIC Rabbit. 

Works with or without Expansion Memory 

Works with VIC or 64 Cassette Deck. 

12 Commands provide other neat features. 

Fast Data Files - two data file modes 

Also Available for 2001. 4001. and 8032 



| <o^V'gTCP - 300/1209 Baud 
Standard Terminal Communications Parage 

•Pf O- lOD OOA CP- Oi -»0? BELL t? 30 00 10 14 36 

Don't settle tor non-standard Communicafons Protocol' 
Access Micro Net Source Bulletin Boards. Local Mam 
trame etc 

> Complete Pacxage - includes RS232 inter 
lace Board and software (does not include 
modemi 

> Communicates in industry Standard ASCII 
» Upload/Download to'lrom Dish 

• Automatic File translation 

• Can oe controlled from keyboard or user sup 
plied basic or machine language program 

Specify 3.0 or « ROMS or 8032 Commodore Computer 
4040 or 8050 or PEDISK H Disk or CBM64 on 1541 

Price: $129.95 




PET 8ASIC SCROLL PB06RAWI 
Scroll thru Basic Programs using cursor 
up/down keys. Specify computer. $6.00 on 
cassette. $9.00 on diskette. 



65C02MAE 

Same as our MAE but enhanced for the new 
65C02 Opcodes. Turns your computer into a 
development system for the new ROCKWELL 
65C02 Microprocessor. $200.00 — Specify 
Computer. 



More than just an Assembler/liWor! 

Now for the "64" . ***««« 



It's a 

Professionally 

Designed 

Software 

Development 

System 



ATARI AND PET 
EPROM PROGRAMMER 



Programs 2716 and 2532 
EPROMs. Includes hardware 
and software. PET = $75.00- 
ATARI (includes sophisticated 
rnach:^ language monitor) = 
$119.95 



PEXMUh 




Prownter Printer • Excellent dot matrix print parallel =call 
Serial • Call IEEE = Call 



EHS's CB§^S4 Monitor Cartridge 
$25.00 
Every Commodore 64 owner 
should have this Machine Lan- 
guage Monitor to explore the 
interesting and exciting world of 
Machine Level Code. If you can't 
think of a need for it now, some 
day you'll wish it was in your 
Software Library. Commands in- 
clude Display Registers/Memory, 
Disassemble , Assemble, Transfer, 
etc. Over 20 commands. 
Cartridge and Manual - 25.00. 




for 

PET 
APPLE 
ATARI 
$36935 

New 

% PriC Jla« 



Blast off with the software used on the space 
shuttle project! • 

• Designed to >mpfOve P* ^qrammer Productivity wm 

• Similar synla* and command Noosed to leieam ^ 
peculiar syntanes and commands when you go _—»» 
Irom PET to APPLE to ATARI ^^®< 

• Coresident Assemoier'Eduo' No need no load $$ j 
Ihe Editot then the Assemble! then the EdilO' etc g^p ta& %$ 

• Also includes Word Processor Relocating Loadet^gs «fi j. 
and much more ^JS SS^m 

• Options EPROM Programmer ummplememed |R» jJV » 
opcode circuilry xSP? 

• STILL NOT CONVINCED Send 'orliee spec sheet' X&| 



W* INCH SOFT 
SECTORED DISKETTES 

Highest quality. We use them ori 
our PETs, APPLEs, ATARIs. and other 
computers. $22.50110 or $44.50/20 '} 




EPRQMS27)6 = $4.502532 = $7.50 ,;.,,/ 

; 0ver 40 Cornmodore Programs by Baker (on 4040} « -$25.00 



3239 Linda Dr. 
Winston-Salem. N^C. 27106 
(919)924-2889 {919)748-8446 
Send for free catalog"! ; 
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ATTENTION ALL 
MICROCOMPUTER OWNERS! S 

CSE MEANS MORE 

Introducing our expanded product line 



We now distribute MORE software, hardware and 

accessories 

We now deal with MORE machines than ever before 

We want to make you a satisfied customer MORE than 

the "other" guys 

Call or write us for information on whatever you're 

looking for 

You'll get our best service because it means MORE 

to us 

HERE'S JUST A SAMPLE OF WHAT WE OFFER: 

Anchor Automation, Caiifornia Computer Systems, 

DMP Systems Software, D.Q.F.LS. Word Processing 

Software, Diablo. Electrohome, D.C. Hayes, Mountain 

Computer, NEC, Microsoft, Practical Peripherals, 

Videx, Zenith and SO MUCH MORE!! 

We carry a variety of diskettes, O.S.I, software, 

educational software, and games too! 

EEEEEEEEEEEEE 




Box 50 • 291 Huntington Ave. Boston 02115 
617-423-9501 




Paul S. Swanson 



l everal inquiries came in concerning the listing for the 
k Mode 10 Painter Program, Part I, appearing in the July 
_| issue of Micro. The listing was typeset, which is a dif- 
ficult format to decipher into the proper keystrokes when 
translating the graphics characters onto the Atari com- 
puter. The screen format listing in September should help 
you find any bugs. To make your screen conform to the 
40-column format of these listings, POKE 82,0 before 
entering the program. That will set your left margin at col- 
umn zero and give you a full 40-column screen. 



GTIA Modes 

The painter program also inspired a few questions 
about the three GTIA modes. All three of the modes are 
variations of GRAPHICS 8 screens. The shadow of the 
hardware register PRIOR, which is located at (decimal) 
623, contains two switches that control the four possible 
interpretations. Since GRAPHICS 8 and GRAPHICS 
screens both use the same type of interpretation, this loca- 
tion can also be used to control a GRAPHICS screen so 
that it can be used as a GTIA character graphics screen. 

Specifically, the interpretation for the GTIA modes all 
use four bits, so each byte contains the information for 
two pixels. If GRAPHICS 9 is declared, or a POKE 623,64 
is executed, each four bits will be interpreted as the 
luminance of the hue contained in color register four (SET- 
COLOR 4,H,0 where H is the background hue). The 
luminance should be set to zero. If it is not zero it will 
create some undesirable effects on the display and at least 
some of the selections of luminances will be lost. 

GRAPHICS 11 is the inverse of GRAPHICS 9. This in- 
terpretation happens in response to either a GRAPHICS 11 
statement or POKE 623,192. All 16 hues will appear at the 
luminance stored with SETCOLOR 4,0,L (L is the 
luminance). The luminance of the black background is 
always zero, independent of the luminance selected. Using 
a hue number other than zero alters the background color, 
but has an undesirable effect on the hues as setting the 
luminance has on the luminances of a GRAPHICS 9 screen. 
GRAPHICS 10, which corresponds to a POKE 623,128, 
is the only one that uses color registers other than register 
four. All nine color registers, which include the ones 
altered with SETCOLOR 0,... through SETCOLOR 4,... 
and the four used for the players and missiles (POKE 704, . . 
through POKE 707,..) are used on this screen. The allowed 
color values on the screen are zero through nine. The other 
seven are not practical to use, although they will produce 
colors. The screen background is taken from player zero's 
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color and can be set with a POKE 704,HUE* 16 + LUMI- 
NANCE. POKE 705 through 707 for the colors one through 
three. SETCOLOR ; ... through SETCOLOR 4,... control 
colors four through nine. Notice that although SET- 
COLOR 4,... sets the background color in most other 
modes, it is a foreground color in mode 10. Mode 10 is the 
only mode that u^es location 704 for the background color. 
The colors set with SETCOLOR 0,... through SETCOLOR 
4, ... are, in the same order, stored at locations 708 through 
712, so POKE 704 + COLORREG,HUE*16+ LUMI- 
NANCE, where COLORREG is the color number to set, 
HUE is the hue (0 through 15) and LUMINANCE is the 
luminance value (even numbers in the range to 15). 



EREDIT, by EHR3, Inc., is a newly introduced editor 
that can be used to create and/or edit BASIC or assembly- 
language files. It will also save all of the changes made to 
the file and j»11ow you to "back out" of changes you have 
made, all the way back to the original version if you wish. 
It uses the files on disk as BASIC LIST files, or the 
equivalent in assembly language (a TYPEd file from the 
Synassembler, for example). 

All of the screen editing controls normally used when 
entering or editing a BASIC program are available in this 
editor (i.e., the four arrow keys, INSERT, DELETE, etc.). 
It is also possible to be editing one file and list another file 
on the screen. Combining this with the full screen editing 
allows you to take lines, with or without additional J 
editing, directly from another file into the file you 
are editing. 

EREDIT is controlled by 31 commands. Several of 
them are DOS commands, allowing operations like file 
delete, file copy, directory list, disk format, lock and 
unlock, to be performed without entering DOS. Several 
commands allow statements to be relocated in the pro- 
gram text and renumbering is available. There is also an 
overlay option that prevents you from redefining a line. 
This can be very valuable in preventing accidental dele- 
tions of lines in the program being edited. The COMPARE 
command allows line-by-line comparison between pro- 
grams, noting every line that is different in comparing 
two files (including lines appearing in one file but not 
the other). 

There is no BASIC syntax checking in EREDIT so it is 
possible to create and/or edit BASIC files only to find 
errors while ENTERing it into BASIC later. This is not too 

(Continued on next page) 



For affordable business 
software, put MicrqSpec ii 



Bmemory 



MicroSpec is serious about offering sophisticated busi- 
ness programs at an affordable price. And there's no 
skimping on the quality or capabilities of the programs. 
Whether you're using DBM. 1NV, G/L, PAY, A/R, A/P, Fixed 
Asset, Rental Property Management, Mail List, or 
Checkbook Manager you'll find MicroSpec programs 
offer the greatest flexibility and optimum performance 
for your specific needs. And you'll like the price! 
Proven MicroSpec business programs are available NOW 
for the Commodore 64 and VIC 20 (trademarks of Com- 
modore). Applications for other popular micros will be 
coming soon. 

A leader in the design of affordable business systems - 
MicroSpec. Put it in your memory. 

For more information, contact your local dealer. 
MicroSpec Inc. 

P.O. Box 863085 • Piano, IX 75086 
(214)867-1333 

(Dealer inquiries welcome) 




COMPUTER 
ACCESSORIES 



SRltOBS-DOWNTIME-SitiViCE 

A speck of dust. dirt, or magnetic oxide on the read/write head of your 
floppy disk can cause data transfer errors, a disk crash, or even a costly 
disk drive failure. Regular use of Perfectdata head cleaning diskettes 
can keep vour drive heads clean and your system up and running. The 
Perfectdafa system can be used on single or dual-sided floppy disk 
drives. (Comes complete with 2 cleaning diskettes, a4 oz, bottle of CS- 
85 cleaning solutioa and full instructions.) 

5.25" Disk Drive Cleaning Kit $22.75 
8" Disk Drive Cleaning Kit $22.75 

©mmm an© pn@?fe?¥@yi i 

Organize your diskettes with an Innovative Concepts Flip 'N* File from 
Mercury Micro. Holds up to50 diskettes In a handsome smoke-colored 
transparent plastic case. 

Case for 5.25" Diskettes $23.75 
Case for 8" Diskettes $29.75 

WHAFS YOUR FAVOI8T1 NUMBER? 

New for spring. Top quality shirts with "64" or "20" printed in large 
numerals on both ftont and back. 50/50 blend wtH not shrink, Specify 
color and size and number choice. Available In red or blue, 
S-M-L-XL 
$7.50 eac h 

OffDEfllN® INFORMATION 

Phone(301) 994-1122 

SHIPPING 

Add $ 1 .50 to a!* oxters for shipping. We pay balance for UPS seivice on 
all orders. Add $2.00 for COD. Maryland residents please add 
5% state saie? tax 

WRITE OR CALL FOR FREE COMPUTER ACCESSORY CATALOG: 
SURGE PROTECTORS DUST COVERS BOOKS DISK MAINTENANCE BLANK 
MEDIA AND MUCH MORE. __^ 

Mercury Micro Inc. 
DeptF 
_ __ eheny Field Rood 
Mercury Mono Drayden 
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SPECTRUM 

32K RAM Button .....$ 

NANOS Reference Card $ 

64K RAM Button $ 

Coco Editor Assembler 
Coco Tech Manual 

16K RAM Chips ...u 

Coco Secrets Revealed Book 
LED On/Off Indicator 
Coco Light Pen 
ATARI Joystick Interface 
Video Interface Kit.... 
16K-32K Upgrade Kit . 
6883 SAM Chip.. 
6809E CPU Chip. 

Basic ROM 1.1 .„„„.„. , 

64K RAM Chips.... «$ 49.95 

MARK DATA Keyboard.. .•$ 89.95 

BOTEK Printer Interface ...$ 69 

Extended Basic ROM .. 

Disk Controller... ...»■ « •$ 139 



i. .......... 

.«■■•••••••»•.» 

I....... .........I 

led Book , 

.....s.aa.atk 

I...U. ...... ...BBS! 

)■(•■••« 

,....a...a.B.Da\ 

iiiiiiliiaA 
'a. ...... ■•iieiasiiV 

•a... ..a... ...nam 

.eea..aaaa.a...ae.A 
■asa.oa.aa.aea.eatft 
la.B.a.aas^ 
la.eaae 
litgaiisn 



CALL 



_ __ __ (....BtiaaaaaasaaeaBB 

COLOR COMPUTERS.... 

Call or Write for FREE Catalog 

SPECTRUM PROJECTS 

93-15 86!hDr Woodhaven, New York 11421 
Add Sales Tax & $3.00 for S/H 
Dealer/Club Inquires Invited ®# 



^Q WRE flSSQCJflTES, LTD. 

ar 



CJ 



UU 

£3 
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Questionnaire Analysis Software 



■ Microcomputer based 

Avoid the expense of contract services •• do everything in-house on 
your own Apple 11+ microcomputer. 

> Easy data entry 

Avoid time consuming keypunching. Uses respondent-marked cards 
entered with an Optical Mark Reader (keyboard entry also possible). 

> Comprehensive data analysis 

Sort on any varioble(s), tally all responses, conduct cross tabs, 
correlations, linear regression, frequency distributions, and more, 

> Complete editing capabilities 

We<ejhf items, derive composites, ado* or delete items, aad mare. 

• Easy-to-use 

Programs are user friendly, menu driven, and interactive. No special 
computer expertise is required. 



Call or send for more information today. 

SC.ElST.f.C SOFTWARE flSSQCWTES, LTD. 

613X208 ' KlflU5ffl).K)l. 5W3. 
TEIEPHME* (715) BUL-2W& 

Apple 11+ is o registered trademark of Apple Computer, Inc. 



From H@r© to Atari (continued) 



serious a drawback, since the corrections are easily done 
from BASIC at that point. The only other drawback I noted 
was the fact that there was no immediate mode capability, 
or anything equivalent. Generally, when I am writing or 
editing a program, I use the immediate mode to execute 
ASC ( - CHR$( conversions or perform calculations. 

The user manual is in the reference book style, listing 
all of the commands in alphabetical order with adequate 
descriptions of each. Also, if the EREDIT disk is in the 
disk drive, the command HELP followed by a command 
name will list a brief description of the identified com- 
mand on the screen. In both the manual and on the screen, 
the defaults are listed with the descriptions. 

In summary, EREDIT can be a valuable tool to use in 
the development of software in BASIC or assembly 
language. It is available at EHR3, Inc., 174 Summit 
Avenue, Summit, NJ 07901. Suggested retail price is 
$49.95. Inquiries are invited at that address by mail or by 
telephone at (201) 277-6785. It is compatible with the 
Atari 1200XL computer as well as the Atari 400 and 
800 computers. 



Next Month 

I will review two software packages in next month's 
column. One is XBASIC from SUPERware, a utility pro- 
gram that stays in memory when a BASIC program is being 
written and executed. It provides many interesting 
capabilities not available in the standard Atari BASIC 
relating to arrays, strings, player/ missiles, and DOS. The 
other program is S.A.M. (Software Automatic Mouth) 
from Don't Ask Software, which adds a sophisticated 
speech synthesizer to your Atari with no additional hard- 
ware. These topics will be presented along with a simple 
way to implement a display-list interrupt, which can be 
used to change character sets, colors, or the switches that 
control the GTIA interpretation so that a text window may 
be added to a GTIA screen. 



You may contact Paul at 97 Jackson St., 
Cambridge, MA 02140. 
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MFOR YOUR APPLE 



SOFTWARE 



Usi 



sec 



ABTSCI 

Magicalc $149.00 $ !)9.00 

Magic Window 149.00 f!9.00 

DBase (Apple) 695.00 475.00 

BRODERBOND 

Payroll $395.00 $285.00 

Arcade Machine 59.95 39.95 

Serpentine 34.95 24.95 

Galaxy Wars 24.95 20.95 

DATAMOST 

Aztec $ 39.95 $ 27.95 

95 
§5 
95 
§5 



Casino 1, 0" 39.95 27 

Worlds 29.95 20 

MatingZone 29.95 20 

Pandoras Box 29.95 20 

Swashbuckler 34.95 24 

Roundabout 29.95 20 



95 



iwmm 

Zork1,2,3 $39.95 $27.95 

Planet Fall 49.95 32.95 

Starcross 39.95 27.95 

PEACHTREE 

Accounts Payable $400.00 $295.00 

Accounts Receivable 400.00 295.00 

General Ledger 400.00 295.00 

Inventory 400.00 2S5.00 

SENTIEMT 

Congo $ 34.95 $ 24.95 

Cyborg , 34.95 24.95 

Goldrush 34.95 24.95 

SIRIUS 

Bandits $ 34.95 $ 24.95 

95 
95 
95 
35 
35 



Epoch 34.95 24 

Fly Wars 29.95 20 

BeerRun 29.95 20 

Outpost 29.95 20 

Snake Byte 29.95 20 

Sneakers 29.95 20 

Joy Port 49.95 37, 



95 



STRATI6IC SIMULATIONS 

Bomb Alley $ 59.95 $ 42.95 

Computer Combat 59.95 42.95 

Ambush 59.95 42.95 

Quarter Back 39.95 27.95 

Germany 1985 59.95 42.95 

The Warp Machine 39.95 27.95 

Gettysburg 59.95 42.95 



OANA 

Series Baseball 

WizPlus 

T.G. Joystick . . 
Select-A-Port . . 



$ 29.95 $ 20.95 

39.95 27.95 

59.95 45.00 

59.95 45.00 



BASIS COMPUTER 

128K Memory • 80 Colunr Card • C.P.M.3.0, 
DOS Perfect Calc • Perfect Filer • Perfect Speller • 
Perfect Writer • 2 Disk Drives • Monitor 
Special $2295.00 



FRANKLIN ACE 1000 
64K, 1 Disk Drive ®64KExpand-A-Ram ©Magicalc 
Speeial $1505.00 

64SC Expand-A-Ram $ 225.00 

128SC Expand-A-Ram $ 275.00 

P.S. Buffer Card 
Stand Alone $ 155.95 

Graphitti Card 
(Specify Printer) $ 89.00 



PRINTERS 
NEC 8023 $ 395.00 

NE0 8023 Willi 

Parallel Interface/Cable $ 4 

08CI82A 

80 COI./120 cp$ $ 439.00 

OKI83A 
135coi./120cps $ 695 



Letter Qualify* 



.00 



ACCESSORIES 

Disk O; with Controller 
(Apple) $ 225.00 

VersaCard $ 169.00 

With Graphics $ 203.00 

P.S. Buffer Card 
16K Buffer $105.95 

P.S. Buffer Card 
with Graphics & Cables $ 189.95 

16KCard $ 85.00 

Floppy Discs 

BoxofTen ..$ 25.00 

WithOrder $ 19.90 

PRT1 
Parallel with Cable $ 79.00 



BUSINESS SPECIAL 

Includes 80 Column Z-80 Card • 16K Card ® 

Wordstar •Supercalc 

Special $825.00 

D.O.S. Programming SPECIAL (Apple II) 

80 Column Card • Magicalc • Magic Window • 
Magic Speller «16K Card 

Special $449.00 

3-CARD SYSTEM 

80 Column 16K Card • Z-80 Card 

Special $349.95 

MODEMS 

Smartmodem 300 

Special $229.00 

Smartmodem 1200 

Special $545.00 

D-Cat Modem 

Special $164.95 

j MONITORS 

I A'mdex Amber $159.95 

USI Green . . , $159.95 

USI Lo/Res Color $299.95 

80 COLUMN CARDS 

Smarterm 2 $129.00 

Videx Video Term $215.95 

Ultra Term $289.95 

Z-80 CARDS 

Microsoft Card $229.95 

Apple HE, 64K, 80 Column $ 99.00 

EDUCATIONAL SOFTWARE 

Spelling/Reading Primer $ 29.95 

Perception $ 20.95 

Counting Bee $ 23.95 

Word Scrambler $ 15.95 

Fractions $ 36.95 

Intro. Algebra $ 21.95 

Frenzy/Flip Flop $ 25.95 

Wordstar $305.95 

SuperCalc $175.00 

VisaCalc $179.00 

Spellstar $175.00 

I All equipment shipped factory fresh. Manufacturers' warranties 
[ included. California customers add 6%% tax. Include payment by 
personal check, money order, or cashier's check with order and 
SGC will pay shipping charge. Call for amount of shipping charge 
when paying by credit card. 

[All items are normally in stock 

1415)490-3420 

... And we'll be here to help after you 

receive your order. Feel free to call the SGC 

Technical Staff for assistance. 
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pple's Lisa computer is in the 
news again this month along 

,with the Russians, typesetting 

by computer, and an alternative to hard 
disk drives. Those of you who have 
been following developments in com- 
puter hardware during the last six 
months are no doubt aware of the sheer 
joy expressed by IBM PC owners when 
they found out that they could turn 
their $4000 IBM PC into a $1500 Apple 
by simply plugging a card into the 
IBM computer. The much larger soft- 
ware base of the Apple II computer 
makes this $680 accessory quite attrac- 
tive, and it is capable of running about 
98% of all Apple software. {Editor's 
note: MICRO has a review copy of the 
Quadram Quadlink. It appears to run 
any software that does not require any 
specific hardware other than a printer. 
It emulates an Apple II as well as the 
Apple III does.) 

Now it looks like the shoe is going 
on the other foot. According to industry 
sources, Apple is considering the 
possibility of making MS-DOS, the 
operating system used on the IBM PC, 
available on the Lisa computer. Since 
Lisa uses a 68000 microprocessor, it 
will be necessary to add an 8088 or 
8086 microprocessor to the Lisa in 
order to let it run MS-DOS. The Unix 
operating system is also being 
developed for the Lisa, and speculation 
is that Concurrent CP/M-86 is being 
considered too. 

The rush to get more operating 
systems working on the Lisa seems to 
be Apple's reaction to IBM's dom- 
inance of the office environment. Be- 
cause of the small initial market for the 
$10,000 Lisa, the development of soft- 
ware for it has lagged seriously and only 
a small number of outside programs has 
been developed. Allowing the Lisa to 
run MS-DOS would open up the possi- 
bility of permitting the Lisa to read and 
write IBM disks directly. The only 
possible problem here is that Apple is 
using a specially designed disk drive 
with the Lisa and it might not be able 
to read the IBM disks. 



Russian Apples 



The Apple II computer is so popular 
that Apple has been having a lot of 
trouble with counterfeit computers be- 
ing manufactured in the Far East. Now 
it seems that the Russians are getting 
into the act, too, and are producing 
their own counterfeit Apples. Unlike 
the counterfeits from Taiwan, the Rus- 
sian clone is not expected to surface in 
the United States but will instead be 
going to schools and research centers 
inside Russia. 

Setting Type with Youf Apple 

Many companies have discovered 
that they can use a word-processing 
program on their Apple computer to 
prepare material for a typesetting 
machine. The text is then sent by 
modem to the typesetter and camera- 
ready copy can be produced. Preparing 
this text with a word processor, while 
acceptable, is not really a good way to 
do things because word processors do 
not have all of the capabilities of a 
typesetting system, and it's almost im- 
possible to tell what the final copy will 
look like. But now a small California 
company called The Type Source has 
developed a program that turns an 
Apple //e with a CP/M card into a full- 
blown typesetting terminal. 

The program, known as STL (for 
Simplified Typesetting Language), sells 
for $695 and can be used to interface 
directly with a wide variety of photo- 
typesetting machines including those 
from Compugraphic, Mergenthaler, 
APS, AM Varityper, and Itek. By per- 
mitting the user to enter all of the stan- 
dard typesetting commands and giving 
him a display that is similar to those 
found on regular typesetting terminals, 
it is no longer necessary for the type- 
setter to get involved and translate the 
user's commands into typesetting com- 
mands. The net result is a saving of 
30% to 50% in typesetting costs. The 



program is capable of working with up 
to eight different type faces at once and 
can produce very small 5.5-point char- 
acters or extra large 74-point charac- 
ters. The package comes with a special 
telecommunication package for type- 
setters, a special HELP menu, and com- 
plete documentation including basic 
lessons in typesetting terminology and 
functions. STL will be available for the 
Apple //e in November 

An Alternative to Hard Disk Drives 

For those of you who have been 
thinking of buying a hard disk drive, 
take a look at the V1200 disk irive 
from Vista before you do. While this is 
not a hard drive, it is a system that can 
easily store up to 6 megabytes of data. 
The system uses a special cartridge that 
holds five removable 5 Va -inch floppy 
disks. Each disk stores up to 1.2 mega- 
bytes of data on it. While each of the 
floppies looks a lot like the standard 
Apple floppy, looks can be deceiving. 
The storage capacity of these disks is 
equal to that of double-sided, double- 
density 8-inch floppies. 

The drive used in the V1200 is a 
special one that is manufactured only 
by a company called Amlyn. In use, the 
VI 200 selects the disk you specify, 
pulls it away from the others in the 
pack with a picking arm, and feeds it 
into the drive mechanism. While this 
may seem like a Rube Goldberg-type of 
device, in practice it works very well 
and in six months has never failed to 
operate properly. Because the angle of 
the cartridge in the drive changes with 
the disk selected, and the disk has to be 
loaded into the drive, initial access to 
data is a little slow. But once the disk is 
loaded, access to any of the 1.2 mega- 
bytes of data on it is as fast as that of a 
hard disk drive. That's because it loads 
data into the Apple the same way hard 
drives do — by using direct memory ac- 
cess (DMA), a technique that bypasses 

(Continued on page 20) 
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Now get Wabash Quality at a CE Price 
For over 1 7 ytars, Wabash has been making high quality 
and dependable computer products. Wabash diskettes 
are made to provide error-free performance on your com- 
puter system because every diskette has been totally and 
hypercritically tested. Since you can now buy Wabash 
computer products directly from CE, the world's largest 
distributor of magnetic media, you can now get maximum 
savings on every order. You can even order toll-free. 

Mew Wabash Six Year Warranty 

The quality of Wabash diskettes is stressed throughout 
the entire manufacturing process. After coating, all Wabash 
diskettes go through a unique burnishing process that 
gives each diskette a mirror-smooth appearance. Wabash 
then carefully applies a lubricant that is specially form- 
ulated to increase diskette life. Then, to keep out foreign 
particles, a unique heat seal bonds the jacket and liner 
together to help prevent contamination. After 1 00% hyper- 
critical testing and certification, Wabash then packages 
each diskette, (except bulk pack) in a super strong and 
tear resistant Tyvek® evelope. The final Wabash product is 
then shrink-wrapped to insure cleanliness and reduce 
contamination during shipment. Wabash diskettes are so 
very reliable that Wabash now offers a six year warranty in 
case of defects in materials or workmanship on all diskettes 
purchased directly from Communications Electronics. 

Mew... Wabash Diskette Duplication Services 

Communications Electronics has teamed up with Wabash to 
provide a single-source solution for the diskette duplication 
requirements of software developers, OEM's and distributors. 
AH service is in-house, to give you fast, dependable service. In 
most cases, delivery can be completed in five days. Whether 
you require 100, 1,000, or 10,000 copies per week, call CE 
first for a no obligation price quote. For additional information, 
please write us on your letterhead with your requirements. 

CE quant. 
SAVE ON WABASH DISKETTES 

Product Description 

8" SSSD IBM Compatible (128 B/S, 26 Sectors) 

8" SSSD Shugart Compatible, 32 Hard Sector 

8" SSDD IBM Compatible (128 B/S, 26 Sectors) 

8" DSDD Soft Sector (Unformatted) 

8" DSDD Soft Sector (256 B/S, 26 Sectors) 

8" DSDD Soft Sector (512 B/S, 15 Sectors) 

8" DSDD Soft Sector (1024 B/S, 8 Sectors) 

5 1 /«" SSSD Soft Sector w/Hub Ring 

5W' Same as above, but bulk pack w/o envelope 

51/4" SSSD 10 Hard Sector w/Hub Ring 

5V«" SSSD 16 Hard Sector w/Hub Ring 

5Va" SSDD Soft Sector w/Hub Ring 

5V4" Same as above, but bulk pack w/o envelope 

5V4" SSDD 10 Hard Sector w/Hub Ring 

5V*" SSDD 16 Hard Sector w/Hub Ring 

5%" DSDD Soft Sector w/Hub Ring 

5'A" Same as above, but bulk pack w/o envelope 

5V4" DSDD 10 Hard Sector w/Hub Ring 

5W' DSDD 16 Hard Sector w/Hub Ring 

5»A" SSQD Soft Sector w/Hub Ring (96 TPI) 

5'A" DSQD Soft Sector w/Hub Ring (96 TPI) 

51/4" Tyvek Diskette Envelopes- Price per 1 00 Pack 

SSSD = Single Sided Single Density; SSDD - Single Sided Double Density; 
DSDD ~ Double Sided Double Density; SSQD = Single Sided Quad Density; 
DSQD - Double Sided Quad Density; TPI = Tracfcs per inch. 



Part# 


100 price 
per disk ($ 


F111 


1.89 


F31A 


1.89 


F131 


2.39 


F14A 


2.99 


F144 


2.99 


F145 


2.99 


F147 


2.99 


M11A 


1.49 


M11A@ 


1.29 


fU541A 


1.49 


M51A 


1.49 


B813A 


1.79 


M13AB 


1.59 


R343A 


1.79 


M53A 


1.79 


M14A 


2.69 


M14AB 


2.49 


M44A 


2.69 


M54A 


2.69 


M15A 


2.59 


M16A 


3.69 


TE5 


12.00 




Quantity Discounts Available 

Wabash diskettes are packed 1 
disks to a carton and 1 cartons 
to a case. The economy bulk 
pack is packaged 1 00 disks to a 
case without envelopes or labels. 
Please order only in increments 
of 100 units for quantity 100 
pricing. With the exception of. 
bulk pack, we are also willing to 
accommodate your smaller or- 
ders. Quantities less than 100 
units are available in increments 
of 10 units at a 20% surcharge 
above our 100 unit price. Quan- 
tity discounts are also available. 
Order 500 or more disks at the same time and deduct 1 %; 1 ,000 or 
more saves you 2%; 2,000 or more saves 3%; 5,000 or more saves 
4%; 1 0,000 or more saves 5%; 25,000 or more saves 6%; 50,000 
or more saves 7%, 100,000 or more saves 8%, 500,000 or more 
saves 9% and 1 ,000,000 or more disks earns you a 1 0% discount 
off our super low quantity 1 00 price. Almost all Wabash diskettes 
are immediately available from CE. Our efficient warehouse 
facilities are equipped to help us get you the quality product you 
need, when you need it. If you need further assistance to find the 
flexible disk that's right for you, call the Wabash compatibility 
hotline. Dial toll-free 800-323-9868 and askforyourcompatrbility 
representative. In Illinois or outside the U.S. dial 312-4393-6363 
between 9 AM to 4 PM Central time. 

Buy Wabash Diskettes with Confidence 

To get the fastest delivery from CE of your Wabash computer 
products, we recommend you phone your order directly to our 
Computer Products Division and charge it to your credit card. Be 
sure to calculate your price using the CE prices in this' ad. Written 
purchase orders are accepter! from approved government agen- 
cies and most well rated firms at a 30% surcharge for net 30 
billing. For maximum savings, your order should be prepaid. All 
sales are subject to availability, acceptance and verification. All 
sales are final. All prices are in U.S. dollars. Prices, terms and 
specifications are subject to change without notice. Out of stock 
items will be be placed on backorder automatically unless CE is 
instructed differently. Minimum prepaid order is $50.00. Mini- 
mum purchase order $200.00. All shipments are F.O.B. Ann Arbor, 
Michigan U.S.A. No COD's please. Non<certified and foreign 
checks require bank clearance. 

For shipping charges add $3.00 per case or partial 
case of 100 8-inch flexible disks or $6.00 per case or 
partial case of 100 5 1 /4-inch mini-diskettes for U.P.S. 
ground shipping and handling in the continental U.S.A. 

Mail orders to: Communications Electronics, Box 1002, 
Ann Arbor, Michigan 48106 U.S.A. If you have a Visa 
or Master Card, you may call and place a credit card order. 
Order toll-free in the U.S. Dial 800-521 -441 4. In Canada, 
order toll-free by calling 800-265-4828. If you are outside 
the U.S. or in Michigan dial 31 3-994-4444. Telex anytime 
810-223-2422. Order your Wabash diskettes today. 

Copyright °1 983 Communications Electronics™ Ad #U1 2483 




Order Toll-Free! Wabash 

800-521-4414 error-free 

In Michigan 31 3-994-4444 !€S 
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Apple Slices 



(continued) 



the microprocessor and loads data 
directly into memory. 

The V1200 has a lot of benefits over 
the conventional hard disk drive. You 
don't have to worry about head crashes, 
drive alignments, lost data or backups. 
Because each disk in the cartridge can 
be easily removed and replaced, you 
can make your backups at the same 
time you save the original. One of the 
biggest advantages of the VI 200, 
however, is the fact that it uses 
removable media. When a 5-megabyte 
hard disk fills up, you either have to 
purge old files or go out and buy a new 
5-megabyte hard disk drive. With the 
Vista V1200, all you have to do is 
remove your 6-megabyte cartridge and 
insert a new one. Cartridges are fairly 
cheap and range in price from $60 to 
$70 for 6 megabytes of storage. The 



ability to have multiple cartridges also 
means that you can dedicate individual 
cartridges to particular applications if 
you want. 

The VI 200 comes with a disk that 
contains several utility programs on it. 
One of them is a program that modifies 
normal 3.3 DOS so that it can work 
with the Vista drive. The modification 
makes it possible for DOS to recognize 
five disk drives per slot. Thus, to access 
any of the five diskettes in the cartridge 
you simply add a Dl to D5 designation 
after the file name. The INIT command 
in DOS is disabled by the modification 
because a special formatting program is 
requiicu to format V1200 disks. 
Another program supplied on the disk 
is one that modifies FID so that it 
works with the new drive. You have no 
idea how great it is to run FID, select 



the FREE SPACE option, and find out 
that you have 4500 sectors free (on a 
fresh disk). Another program provided 
with the drive is Quickchazge. This is a 
fastDOS program that significantly 
speeds up the reading and writing m 
DOS files. 

In addition to working with stan- 
dard DOS, the V13J0 also works with 
the Pascal and CP/M operating sys- 
tems. While the drive can be purchased 
from Vista for $1549, you can get it a 
lot cheaper ($1295) from A.P.P.L.E in 
Kent, WA. 



You may contact Mr. Gilder at REDLIG 
Systems, Inc., 2068 79th St., Brooklyn, 
NY 11214. 



SOPHISTICATED TELE-COMMUNICATION IS HERE 

THE COMMUNICATOR 
for 4.0 Commodore Computers 

JIM STRASMA'S REVBEW: 

"THE BEST TERMINAL PACKAGE I'VE SEEN VET 9 ' 

By April 1 (maybe sooner) It Will Be Even Better 

SPEEDS UP TO 9600 BAUD 

XON — XQFF 

TRUE CTRL KEY (we do our own keyboard scan) 

THE HARDWARE — A printed circuit board; easily installed in the CBM. it uses 
no CBM connectors; gives a serial port with true R8S32C standard. 

THE SOFTWARE — 

— Emulates the ADDS Regent 100, ADM 31 and/or the 

TeleVideo 880.1 Or choose the VT100 model tor use with DEC and VAX 
computers. 

— Runs coresident with BASIC programs; lets BASIC 

programs and program on nest computer communicate to develop real- 
ly sophisticated communication and control capabilities. 

— The program Is on ROM at either address; no disk loading 

required. Uses only 61 2 bytes of RAM; wiH relocate itself around any other 
machine language program at top of memory. 

— Will upload and download and run BASIC programs. With BASIC 

program wil upload and download standard data flies. 100 page manual 

gives program listing for BASIC programs. 

Excellent text editor designed to work with THE COMMUNICATOR 

THE COMMUNICATOR $200 

Text Editor $40 

1200 baud modems beginning at low, low $385, and even less when purchased 

with THE COMMUNICATOR 

AMPUFY, INC. 
2325 Maebrid®, Iowa City, Iowa 52240 319-337-8378 

1 trademarks Adds Regent, Inc., Lear Uegler, Inc., Teievkfeo Systems, inc. 



FOR APPLE II PLUS, FRANKLIN, APPLE He 



Expand the capacity of your printer hundreds of times 

Load custom fonts into your Apple® Matrix Printer, Pro- 
writer"" 851 0A, OKI® Microline 92, 93, 84 Step II, and ,, 
Epson® FX and use them with virtually every word Jj CH 
processor to turn your printer into a custom type- ,, ^ . 
setter. After the fonts are loaded, they will stay /' ""**" 
in your printer until it's turned off. A ><^s! JT 

font editor is also provided to 
allow you to create your 
own graphics, text, foreign 
language letters, math and 
electronics symbols to load 
into your printer, 

On-DiSk (Specify Printer) 
$39.00 

•Requires pnntennterfacethat 
adheres to Apple protocall 
(Tymac. Apple, Epson, etc) 
(Will notwork with Pkaso. Wizard 
and some others). 




Submit the best or most unique font using the above 
software and we will make you $100 richer. Other 
prizes for the first 25 runners up. 



Dealer and Distributor 
inquiries Invited 



miero 

1342 B Rt. 23, Butler, NJ 07405 
2C1-838-9027 
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R SALE— $149,00* 




*STX-80 COLUMN 

PRINTER— $149.00 

Prints full 80 columns. Super silent operation, 
60 CPS, prints Hi-resolution graphics and 
block graphics, expanded character set, ex- 
ceptionally clear characters, fantastic print 
quality, uses inexpensive thermal roll papyri 

DELUXE COMSTAR T/F 

PRINTER— $218.00 

The Comstar T/F is an excellent addition to 
any micro-computer system. (Interfaces a:ra 
available for Apple, VIC-20, Commodore-64, 
Pet, Atari 400 and 800, and Hewlett Packard). 
At only $219 the Comstar gives you print quali- 
ty and features found only on printers costing 
twice as rru'ch. Compare these features. 

• BI-DIRECTIONAL PRINTING! with a LOGIC 
SEEKING CARRIAGE CONTROL for higher 
through-put in actual text printing. 60 
characters per second. 

• PRINTING VERSATILITY: standard 98 ASCII 
character set plus block graphics and interna- 
tional scripts. An EPROM character generator 
includes up to 224 characters. 

• INTERFACE FLEXIBILITY: Centronics is 
standard. Options Include EIA RS232C, 20mA 
Current Loop. 

• LONG LIFE PRINT HEAD: 100 million 
character life expectancy. 

• THREE SELECTABLE LINE SPACINGS: 6, 1 
or 12 lines per inch. 



* THREE SELECTABLE GHARACTER 
PITCHES: » 10, 12 or 18.S characters per inch. 
132 columns maximum. Double-width font also 
is standard for each character pitch. 

° PROGRAMMABLE LUE FEED: program- 
mable length from 1/144 to 255/144 Inches. 

e VERTICAL FORMAT CONTROL: program- 
mable iott?t length up to 127 lines, useful for 
short or over-sized preprinted forms. 

• FR8CT50N AN® TRACTOR FEED: will accept 
single sheet paper. 

» 224 TOTAL CHARACTERS 

» USES STANDARD SHE PAPER 
if you want more try — 

Premium Qualify 

CO-STAR T/F SUPER-10X 

PRINTER-$299.00 

More Features Than RX-80 

For $299 you get all of the features of the 
Comstar T/F plus 10" carriage 120 cpa, 9x9 
dot matrix with double strike capability for 18 
x 18 dot matrix. High resolution bit image (120 
x 144 dot matrix), underlining, backspacing, 
left and right margin settings, true lower 
descenders, with super and subscripts, and 
prints standard, Italic, Block Graphics, special 
characters, plus 2K of user definable char- 
acters. For the ultimate in price performance 
the Comstar T/F Super 10" leads the pack! 



Double 



We have doubled the normal 90 day warranty 
to 130 days. Therefore if your printer fails 
within "180 days" from the date of purchase 
you simply send your printer to us via United 
Parcel Service, prepaid. We will IMMEDIATELY 
send you a replacement printer at no charge 
via United Parcel Service, prepaid. This warran- 
ty, once again, proves tnat WE LOVE OUR 
CUSTOMERS! 

15 DAY FREE TRIAL 

OTHER OPTIONS 

Extra Ribbons •$ 5.95 

Roll Paper Holder 32.95 

Roll Paper 4.95 

5000Labels 19.95 

1100 Sheets Fan Fold Paper 13.95 

Add $17.50 shipping, handling and insurance. 
Illinois residents please add 6% tax. Add 
$40.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA orders. WE DO NOT EXPORT TO 
OTHER COUNTRIES. Enclose cashiers check, 
money order or personal check. Allow 14 days 
for delivery, 2 to 7 days for phone orders. 1 
day express mail available"! Canada orders 
must be in U.S. dollars. 



ENTERPR§3 VEQUR CUSTOMERS! 

BOX SS0, BARRINGTON, ILLINOIS 80010 
Phono 312/382-5244 to order 



SUPER-10" ABCDEF3HiaKLHNQPQR8TUVWMYl 
- ASCDEF6l41JKLHNOf»faR@TUVMSC¥S % 523«#34£»lPO«PO 

GRAFSTAR (Apple Interface card - "Like Grappler Plus") SALE $69.00. 
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CoCo Bits 



John Steiner 



here have been big developments 
in the CoCo world - you may 
have already seen the newest 
color computers. They sport new 
ROMs and the top-of-the-line version 
64K color computer has a deluxe 
keyboard. This option will be available 
as an add on for the older CoCos. 

If you live around the Dallas-Ft. 
Worth area, you can attend another 
Rainbowfest. This CoCo convention 
will take place the weekend of October 
14 15, and 16. Next month, November 
4, 5, and 6, Los Angeles, CA will be the 
site of Color Expo sponsored by Color 
Computer Magazine. In February, 
another Rainbowfest will be held in 
Newport Beach, California. I am gomg 
to try to make it to the Dallas Rain- 
bowfest, if at all possible, and will be 
looking forward to meeting you at the 
show. If you see me, stop and kw hi. 

In the June issue, I included a listing 
for a program that will find the siart, 
end, and execute addresses of a 
machine-language program, but 
neglected to point out that the routine 
works only on a tape system. If you use 
the routine with a disk system con- 
nected, the results are invalid. 



I am waiting for documentation on 
the new ROM capacity, but so far none 
is available. It is capable of loading a 
DOS from the disk, a definite improve- 
ment over the older ROM. Hopefully 
Tandy will document this ROM a little 
better and allow other software 
developers to have greater access to 
standard I/O routines. There will be a 
shake up in the support industry as 
companies scramble to convert their 
disk I/O to run on the new ROMs. 

I chatted with John Waclo of Elite 
Software, who has recently released 
Elite*Calc. They will be converting 
Calc to run on the new ROMs. Accord- 
ing to Mr. Waclo, a manufacturer has 
the option of either releasing two ver- 
sions of his software, one for 1.0 and 
one for 1.1, or writing a universal ver- 
sion that will run on either ROM. The 
method chosen depends on the program 
itself. Disk users may have to read the 
fine print in ads to see if the program 
they want is written for the version of 
ROM they have. I am sure most 
manufacturers would want to create a 
single version for both ROMs if at 
all possible. 



A Look At The New Disk ROMs 

The 1.1 disk ROMs are out, and the 
worst has proven to be true. Of all the 
disk software I have, the only software 
with disk I/O working under the new 
ROMs is Tandy-written. The only ex- 
ception is disk Colorcom/E by Eigen 
Software Systems. I/O seems to be OK 
on that excellent terminal program, but 
I haven't had time to test it thoroughly. 
An acquaintance with Nelson's Color- 
term software says that the software 
works well with the new ROM. I am 
writing this column using Tele- 
writer-64, which has been my standard 
word processor, but I am having to use 
the 1.0 disk card as Telewriter is not 
compatible with the new ROM. 
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J&M Bisk Controller Card 

The 1.1 ROM was delivered to me 
with the J&M driver controller card I 
obtained from J&M Systems, LTD of 
Albuequerque, NM. I mentioned in my 
August column that I had seen these 
cards at Rainbowfest and recently 
ordered one. The card is enclosed in an 
aluminum case and the workmanship 
is excellent. It is available with or 
without the 1.1 ROM. With the ROM, 
it is completely compatible with any 
Radio Shack software. I have interfaced 
the card with the TEC drive that is 
standard on the CoCo, with an MPI 
drive, and with Tandon drives, and all 
seem to work fine. 

Two of the nicest features about the 
J&M card are digital pre-compensation 
(there are no potentiometers to get out 
of adjustment), and gold-plated card 
contacts. One of the most troublesome 



areas of the Radio Shack card has been 
the lack of solid connections to the 
ROMport and drive-cable connector. 
The Radio Shack card needs constant 
cleaning to prevent oxidation from 
creating poor connections at the card 
ends. The J&M card should solve that 
problem. Surprisingly, the cards retail 
for only $149.95. When mated with a 
Tandon or Teac drive, the J&M system 
is a powerful package. J&M told me 
they will be releasing a 1.1 super ROM 
that will have all the features of the 
new RS ROM, but also allow you to 
change step rates and other disk 
parameters. The ROMs will probably 
be available when you read this. 



Elite* Calc 

A high-quality spread-sheet pro- 
gram is finally available for the CoCo. 
The program is very much like the 
Super Calc that runs on larger business 
computers. I am truly impressed with 
Elite* Calc. Though it has a few minor 
bugs, it provides nearly all of the func- 
tions that other commercial spread 
sheets make available. In addition, it 
has a few features others don't have. I 
have had the opportunity to work with 
the program since I purchased it at 
Rainbowfest and didn't realize it had 
IF-THEN-ELSE capacity until I read a 
recent ad. The one weak point of Calc 
is the manual. It is written for those 
who are somewhat familiar with a 
spread-sheet program. Use a book or 
tutorial for Super Calc or another 
spread sheet if you have problems 
understanding the Elite* Calc manual. 
Transferring examples to Elite* Calc 
syntax should not be difficult. 

I am so impressed with the program 
that I have started a nationwide 
Elite* Calc User's Group. The major ob- 
jective of the group is to provide a clear- 
inghouse for spread sheets. People who 
have written sheets can exchange them 
for sheets others have written. This 
should create a large supply of useful 
routines, and allow people to modify 
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already existing routines, rather than] 
reinvent the wheel by having to com- 
pletely write their own. 



Firogfammefs' Utilities 

Since this month's issue covers pro 
gramming techniques, I wanted to 
mention several useful utilities 
available from Micrologic. E. R. Bailey 
of Micrologic has several programs 
available that process BASIC programs 
saved in ASCII format. The one I use 
most often is LLSTFM, a BASIC pro- 
gram formatter that provides a paged, 
titled, and dated program listing. The 
only nicety that could be added to the 
program is the inclusion of spaces be- 
tween keywords in packed programs. 
Other utilities include a line-number 
cross referencer and a variable cross 
referencer. These programs scan your 
BASIC program and identify variables 
and line numbers and cross reference 
them for easy tracking of program logic 
A disk directory program does what 
RS DOS should: allows printed direc- 
tories, a paged screen directory, and 
available space data. I will have more 
comments on these programs in a 
future column. 

Another useful programmer's uul 
ity is the Platinum Worksaver by 
Platinum Software. I don't write any 
programs without first loading the 
worksaver. Single key keyword entry, 
redefinable keys, and a super screen 
editor make the program worth far 
more than the $35.00 it costs. A 
keyboard overlay is included that can 
be used to remind you of key defini- 
tions saved with each program. The 
worksaver has a small overhead of a 
couple of hundred bytes, but complete 
screen editing and the ability to in- 
tegrate Worksaver features into a pro 
gram more than make up for the small 
overhead. 



You may contact Mr. Steiner at 508 
Fourth Ave. NW, Riverside, ND 58078. 
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C COMPIURS-COMMON FEATURES: 

• UNIX vest 7 compatibility • standard float, double, and long support • run time library with full I/O 
and g 7 urce t fa$t comp „ at|on and exccu tion • full language. 

. Droduces relocatable 8080 sourcfclde • assembler and linker supplied* optional M80 interface • 
proau siD/ZSID debusser interface • library utility • APPLE requires Z80 and 16K card 

AZTICCH APPLE DOS $199 _, ^ _„ 

• relocating assembler supplied • APPLE SHELL • VED editor • library and other utilities 
• requires 16K card 

C86 IBM PC MSDOS CP/M-86 $249 
• directly produces 8088/8086 object code • linker supplied 

Manuals-$30 ORDER BY PHONE OR BY MAIL-Specify products and disk format 




software systems 
Box 55, Shrewsbury, N,J. 07701 (201) 780-4004 



M/SA 



CP/M FORMATS. 8" STD. HEATH, APPLE. OSBORNE, NORTHSTAR, OUTSIDE USA-Add 510 In N j. add 5% sates tax 




AS! prices 

Postpaid 
(Continental 
U.S. — 

otherwise 
$2 credit) 

Tm duality power supply designed to Rockwell's specs for fully 
populated AIM 65 - includes overvoltage protection, transient 
suppression, metal case and power cable: 
PSSBC-A (5V 2A Reg; 24V .5A Avg, 2.5A Peak, Unreg) ...$64.95 
Sam© but an extra AMP at 5 volts to drive your extra boards: 
PSSBC-3 (5V 3A Reg; 24V .5A Avg, 2.5A Peak, unreg) ...$74.95 
The professional's choice in microcomputers: 

AIM65/1KRAM $429.95 BASIC(2ROMS) $59.95 

AIM65/4KRAM $464.95 ASSEMBLER (1 ROM) . .$32.95 

FORTH (2 ROMS) $59.95. 

SAVE EVEN mom ON COMBINATIONS 
AIM65/1K + PSSBC-A $479.95 AIM65/4K + PSSBC-3 .$524.95 

We gladly quote on ail AJM95/40 and RM65 items as well. 
-_ ORDERS: (714) 369-1084 

E&Q P.O. Box 20054 • Riverside, CA 92516 

California residents add 6% sales tax 
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PRODUCT 

C8M64 uJll 

CBMB500 $695 

CBMB700 2990 

CBM 1520 Plotter 259 

CBM 1 701 Color Monitor 279 

B Series Software Coll 

SOFTWARE POR CBM MZ 

Word Processing (WordPro 3*) $ 69 

Word-Pao(tape) 60 

The Assistant Series 

Writer's Assistant(easyandflexible) ... 99 

File Assistant (database with merge). . . 99 

Spreadsheet Assistant 99 

Pere. Finance Assist.(grea? reports) ... 45 

Busicalc (Spreadsheet) 55 

Coco 11 (build your own games easily) ... 45 

Home Accounting Package 39 

G*'3ial Ledger, A/R,A/P 

.,th check writing) ea.139 

CBM EasyFinance 50 

CBM EasyScript 80 

CBMEasyFile 80 

Data Manager 70 

Stock(investment analysis) 80 

Pet Emulator (emulates 4.0 basic) .... 30 
Sprite-Magic (use joystick 

to design sprites) 19 

Assembler Package (cassette or disk, 
compiled, includes editor, loader, 

disassembler) 39 

Spacebelf 20 

Retroball 34 

80 Column Expander. $159 

VIC 1600 Modem 95 

VIC 1650 (auto answer, auto dial). •• • 150 

VIC 1525 Graphic Printer 329 

VIC 1 530 Datasette Recorder 65 

V1C154 1 Disk Drive 329 

VIC Switch (connect 8 64's or Vies 

to printer, dd) 149 

IEEE Interface (64) 85 

PET-IEEE cable 33 

IEEE-IEEE cable (2m) 43 

Parallel Interface (Epson, Okidata, 

IDS, NEC) 80 

RS-232 Printer Interface (Okidata, 

Diablo, etc,) 60 

Programmers Reference Guide 18 

Verbatim Diskettes (10 per box) 26 

Victree (Programmers Utility) 75 

VIG PRODUCTS & ACCESSORIES 

8K RAM Memory Expansion Cartridge ... $ 40 

16K RAM 70 

24KRAM 105 



VIO IEEE interface. 75 

VIC 3 Slot Expander. 27 

VIC 6 Slot Expander. 70 

RS-232 Printer Interface 65 

Cassette Interface « 27 

Home Finance Package (6 tapes) .... 47 

Gorf(64also)... 30 

Omega Race 30 

Arcade Joystick - Heavy duty w/2 firing 

buttons! Great for the VIC or 64 ... . 25 

MM$i?OitIi« CiREAT 
RESOLUTIOH m OR ¥IC§ 

Amdek Color! $ 299 

Amdek II or III call 

Panasonic CT1 60 279 

Comrex 6500 - 13" Color 299 

Transfer 20 (High Resolution 

Green Phosphor) 129 

Video/Audio Cable 15 

PRINTERS - LETTER QUALITY 

CBM 8300, 40 cps $1450 

Diablo 620, 25 cps 949 

ComRiter, 17 cps 819 

Transfer 130, 16 cps (auto load, 

wp features!) 769 

NEC 7700 series 2350 

NEC 3500 series 1600 

PRINTERS - POT HATRIK 

CBM 8023, 1 50 cps/graphics 589 

Epson FX Printer, 1 60 cps 529 

Epson MX-80 w/Graftrax 349 

CBM Graphics for Epson 65 

Okidata 82A, 120 cps (serial 

and parallel) 429 

NEC 8023A (parallel) 439 

0kidata92 559 

Star Gemini, 10 360 

Star Gemini, 15 499 

COHftSODORg 

SER1 

SuperPet (5 languages, 

2 processors) $1409 

CBM 8032 Computer, 80 Column .. . 1029 

CBM Memory Expansion, 64K 359 

CBM 8050, 1 mg. Dual Drive 1259 

CBM 8250, 2 mg. Dual Drive 1500 

CBM D9060, 5 mg. Hard Disk 2240 

CBM D9090, 7.5 mg Hard Disk .... 2600 

CBM 2031, 1 70K Single Drive (New) 489 

DC Hayes Smart Modem 220 

BUSINESS SOFTWARE 

WordPro 4* or5» ....$ 309 

Administrator 489 

VisiCalc (expanded) 199 

The Manager (database) 1 99 

BPI A/R, G/L, Job Cost, Inventory, 
Payroll ea.325 



SSWIUfty @B*Q©Fj 08HK Cil®©K 

COD (add $5) accepted. 

Add 3% surcharge for credit cards. 

In stock items shipped within 48 hours, 

F.C.B, Dallas, Texas 

All products shipped with manufacturer's 

warranty. 

to ommn 

©ALL TOLL FftES 

80©-Sg?»4®®3 

©00-442-1048 

(Within Texas) 

Business Hours 
Mon.- Fri. 8 to 6, Sat. 10-2 

Write foi' free catalog. 

CUUWR OP TNI MONTH 

Adventu-Writer (make your 
own adventure game) 39 




S4@ EMSTftiBl ttSO. 

10520 Piano Road, Suite 206 

Dallas, Texas 75238 

12141 343-1328 
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by Phil Daley 



,hat is a programming tech- 
nique? There are probably as 
many different definitions as 
there are programmers. The Computer 
Dictionary defines "programming" as 
"the process of creating a program" 
and Webster's Dictionary defines 
"technique" as a "method of handling 
materials of an art". This provides us 
with a general idea of methods for 
creating a program. 

There are several categories of such 
methods; e.g., improving program legi- 
bility or internal documentation, in- 
creasing the speed of the program, pro- 
viding the program user with a crash- 
proof friendly environment, providing 
future program changers with a struc- 
tured well-designed program to modify, 
No. 65 • October 1983 



and using features built into a par- 
ticular computer to their best advan- 
tage. This issue of MICRO presents a 
collection of techniques for BASIC, 
Pascal, and machine-language pro- 
grams to enhance your knowledge and 
enjoyment of your microcomputer. 

Pascal users can look for a primer on 
gaming techniques in Pascal including 
a simple, but modifiable, example of a 
Pascal game. Also, there is a pseudo- 
random-number generator, usable for 
card dealing or anywhere random num- 
bers are needed. 

For machine-language buffs we have 
some techniques for faster matrix 
operations, an m-1 string search, and an 
extremely sophisticated routine for 
animation with CoCo graphics. You 
MICRO 



can plot figures in between vertical 
scanlines for a smooth-looking graph- 
ics display. 

BASIC fans can really make their 
programs more friendly with the first of 
a series of user-friendly techniques. 
This month the subject is the directory 
menu for easy selection of programs 
from your disk collection. Add this pro- 
gram to all your bootable disks. We 
also have programs for screen data plot- 
ting for all our covered micros. This is a 
prelude to our character-graphics cover- 
age for November. 

We think you will enjoy our new 
expanded coverage with listings for all 
micros of as many programs as possible. 
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by Phil Daley 




"ne of the most important and yet 
most difficult tasks for a beginning 
computer user is to perform a directory 
search of a disk and to load and run a 
program. While a sophisticated user 
would have no trouble determining 
which programs are runnable (or 
B-runnable), the beginner is confronted 
with all sorts of file-types and mean- 
ingless filenames and has to remember 
the correct syntax (I even get mixed up 
going from computer to computer) and 
proper commands to get the computer 
to accomplish the task at hand. It 
would be much easier to have a single 
command to learn or, in the case of 
auto-booting computers, no commands 
to learn at all. 

Directory Menu is a user-friendly 
utility program that will display a 
directory of all programs on a disk and 
allow you to load and run any program 
at the touch of a key. It will be useful 
for beginners who want to simplify 
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their disk organization and implement 
auto-running menu selection on their 
own disks. It will also be useful for pro- 
grammers who want their programs to 
be the ultimate in user-friendly /simple 
menu selection. 

Many people who buy computers do 
not want to learn about programming 
or memorize commands. Others are 
eager to begin writing their own pro- 
grams. In either case, most people soon 
acquire a growing library of programs, 
storing many on a single disk. On auto- 
booting systems, such as the Atari and 
Apple, most people write DOS onto a 
disk before copying or saving other pro- 
grams. This allows you to boot using 
any disk and to run a "HELLO" or 
menu program automatically. These 
procedures may seem quite simple to 
the experienced user, but the beginner 
can easily become confused and frus- 
trated. Whether you are a beginner or 
not, you can save yourself time and 

MICRO 



effort by letting your computer do 
the work. 

Wouldn't it be easier to just turn on 
the computer and have the machine 
tell you the names of each file on a 
disk, assign it a number, then let you 
simply type your selection by number? 
Wouldn't it be easier to let the com- 
puter figure out if your selection is a 
BASIC or machine-language program, 
then run it for you? If you answered yes • 
to these questions, read on. 

The program creates a MENU and 
displays a page of program names one 
page at a time. To load and run a pro- 
gram displayed, merely type the 
number of the program appearing to the 
left of the program name and press 
return. Versions are included for the 
Apple, Atari, Color Computer, and 
Commodore 64. The listings and des- 
criptions of the individual programs ap- 
pear in the appropriate system sections 
of the magazine. &IOS© 
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■■-Ifs Hie dead ofjiigHl.; You're the inasler of the \4ravey; 
pnrty and raise (lie dead. £a" you use tl?e MonslcrSni 
under? Only 889.95 for your Apple* <*<«mnodore oho^M^'/i^^^ffyZ^Z^n^ lal'ctVox" 



8.943 FujNbright; Avenue, Chatsworth, CA 9131 1 --275Q (213) 709-1 202 



Copyright 'S983:Datnnibs!!nc 



r VISA/MASTERCARD accepted S2.00 shipping/handling charge. (California residents add 6'/,% sales tax ) 

Apple./fcommodbre 64, and Atari, are trademark's of Apple Cpm-puter lnc.„Commodore Business Machines, and Atari Inc.. 



The author develops general-purpose plotting routines for the Commodore 64, 
VIC, PET, Atari 400/800/1200, TRS-80C, and Apple. Simple examples 
are used to demonstrate origins, sealing, rounding, and polar coordinates. 







by Loren Wright 
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It is easy to plot mathematical func- 
tions or create attractive designs on 
your computer's character-graphics 
screen. This article will show you how, 
starting with simple concepts and sim- 
ple functions and working up to a plot 
using polar coordinates. The result of 
these exercises will be a set of general- 
purpose routines that you can use to 
plot nearly any function on your com- 
puter screen. On the way, you'll learn 
about origins, scaling, rounding, sym- 
metry, and coordinate systems. 

The article is written for Com- 
modore, Atari, and TRS-80C screens. 
Nearly all differences are included in 
the start-up modules listed on page 
29. The Apple's screen memory is not 
continuous, so these routines will not 
apply directly to the Apple. However, I 
have provided a separate set of 
modifications that will allow you to try 
the examples presented using the 
Apple's low-resolution graphics screen. 
See the listing on page 33. 

The first thing we need is a system 
to describe the position of a point on 
the screen conveniently. The easiest 
system to learn is called a rectangular 
coordinate system. With this system 
two imaginary perpendicular lines in- 
tersect somewhere on the screen, 
usually at the lower left corner. This 
intersection point is called the origin, 
and the two lines are the axes. Each 
axis has a scale used for measurement. 
Depending on the data you are plotting, 
the size of the scale will vary. The 
horizontal and vertical scales may be 
different, but in our first examples they 
will be the same. By convention, the 
horizontal axis is called the x-axis and 
the vertical axis is called the y-axis. 

The position of a point is described 
by measuring the distance from the 
origin to a perpendicular line leading 
from the x-axis to the point, and by 
similarly measuring on the y-axis the 
distance from the origin to a perpen- 
dicular line leading to the point. These 
tw» measurements, one along the 
x-axiii and the other along the y-axis, 
uniquely describe that position. In 
figurel, point A has x-y coordinates of 
4,4; point B is at 5,3. Negative coor- 
dinates are possible, but we will save 
them until later. 
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Start-up Modules 



Commodore 64 

10 OG = 1024: CM = 55296: 
XX = 24: MX=39:MY = 24. 

20 POKE 53280,2: POKE 53281,1: 
CC = 2 

40 PRINT "[ 3]" 



VIC-20 

10OG = 4*(PEEK(36866) 

AND 128) + 64*(PEEK(36869) 

AND 112) 
11 CM = 37888 + 4*(PEEK 

(36866)AND128):MX = 21: 

MY = 22:XX = 24 
20 POKE36879,PEEK(36879)AND 

80R(16*2+1):CC = 2 
40 PRINT "[3]" 



PET/CBM 

10 OG = 32768: XX =24: MX = 39: 

MY = 24 
40 PRINT "[3]" 

Note: Don't use line 3050! 



All Commodore Machines: 

900 GET T$: IF T$ = ** " THEN 900 
999 STOP 

TRS-80C 

(Requires Extended Color BASIC) 

10 OG= 1024: XX = 88 
20MX = 31:MY=15 
30CLS 



900 IF INKEY$= " " THEN 900 
999 STOP 



Atari 400/800/1200 

10OG = 256*PEEK(89) + 

PEEK(88) 
20 XX = 56:MX = 39:MY = 23 
30 SETCOLOR 2,13,10: 

SETCOLOR1.0.0: 

SETCOLOR4.3.6 
40POKE752,1:PRINT"«S" 



900 IF PEEK(764) = 255 

THEN 900 
999 POKE 752,0:STOP 



^ Your Computet Screen 

Most home computers in their stan- 
dard character modes have a memory- 
mapped screen. That is, each character 
position on the screen has a different 
memory location associated with it. 
Each memory location contains a 
number, which is a code representing 
the character in the corresponding posi- 
tion on the screen. The screen memory 
locations begin with the upper left 
corner of the screen and continue in 
sequence from left to right until the 
bottom right corner is reached. To put a 
character on the screen we just POKE 
the appropriate numerical code into, the 
proper screen memory location. This 
isn't very handy, since the screen 
memory locations are big numbers. 
What we need is a system to convert 
from the handy x-y coordinate system 
described above to the computer's own 
memory-mapped system. 

First you need to know a few things 
about your particular computer. The 
first lines of our program will con- 
tain information describing your com- 
puter's memory-mapped screen. Type 
in the start-up module lines listed for 
your computer. The 3 in the Com- 
modore listings and the s? in the 
Atari listing iridicate the clearscreen 
character obtained by pressing SHIFT 
and CLR or CLEAR keys. 

OG is the origin, or the address 
representing the upper left corner. MX 
is the number of columns less one, and 
MY is the number of rows less one. (For 
these demonstrations, the first column 



and first row are numbered 0.) XX con- 
tains the screen code for a capital X. 
The lines also contain statements that 
set screen, border, and character colors. 
The method varies with the computer. 

Graphing a Function 

Now that you have customized the 
program to your computer, add the 
following lines: 

1 00 FOR X = TO MY: REM VIC use MX. 
110Y = X 

120 X1 = X: Y1 = Y: GOSUB 3000 
130 NEXT X 

3000REMX1=0TOMX Y1=0TOMY 
3030PO = (MX+1)*Y1+X1 
3040 POKE OG + PO.XX 
3050 POKE CM + PO,0: REM 

VIC & C64 ONLY 
3060 RETURN 

With any luck, you now have a line 
of X's leading down from the upper left 
corner. When we were discussing the 
coordinate system before, the origin 
was at the lower left, but this example 
makes the origin at the upper left. 
That's because the computer's screen 
memory starts with the upper left. We 
can correct this by adding line 3020 to 
the program: 

3020Y1=MY-Y1 

Try RUNning the program again. 
This time the diagonal line starts at the 
(Continued on page 31) 
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Micro Spec 

SOFTWARE MEANS 

BUSINESS FOR THE 

COMMODORE 64 



When it's time to get serious, it's time to boot up 
MicroSpec business software. Our complete line 
of business software is made to give you some real 
applications for your Commodore 64. From data 
base management to full accounting software, we 
have the package for you. 

It's attention to detail that makes our packages 
so beautiful and makes them stand out from the 
rest. We realize that most people are first 
time users, so we designed all our packages to 
be completely menu driven and user prompt- 
ed for each input. We also know that most 
people use only one disk drive, so we 
designed all our packages to virtually 
eliminate disk swapping. Other features like 
non destructive input routines really make 
our software easy to use. But all this doesn't 
restrict you. Pure random access file struc- 
ture maximizes your disk capacity and 
allows you to bring up any record for viewing 
in less than a second. 

In our efforts to put together the best pack- 
ages available, we worked on more than the 
software. We took the same approach with the 
documentation as the software. We made it com- 
plete and easily understood for the first time user. 
We even provide sample reports in many cases. 




The Demonstration Package, which shows how 
each program runs, is available for $19.95. So, if 
you're serious about your 64, call or write for a 
complete brochure or g© right down to your 
nearest computer retailer for a demonstration. 



WHEN YOU AND YOUR 64 ARE READY TO GET DOWN TO BUSINESS 

GIVE US A CALL 
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P.O. BOX 863085 • PLANO, TX 75086 
(214)867-1333 

MICRO 



No, 65 - October 1983 



na 




bottom left. You have just graphed the 
mathematical function "Y = X" (see 
line 110 above) on your computer 
screen. Now try a new function. Make 
the changes in lines 100 and 110 so 
they appear as below: 

100 FOR X = TO 10: REM CC use 7. 
110Y = 2*X 

120 X1 =X: Y1 = Y: GOSUB 3000 
130 NEXT X 

A new function "Y = 2*X" will be 
plotted when you RUN the program. 



Keeping It on the Screen 

Note that line 100 had to be changed 
to prevent our graph from running off 
the screen. It is a good idea to be sure 
your points won't go off the screen 
since plotting out-of-range points could 
possibly crash your program. So far, I 
have been careful to choose values that 
will keep all points on the screen. You 
can't always be sure. By adding the 
following line to your plotting 
subroutine, you will avoid a disaster: 

3010 IF (Y1 < 0)OR(Y1 > MY)OR 
<X1 < 0) OR(X1 > MX) THEN 
3060 

This will cause the routine to return 
without plotting a point when either X 
or Y is out of range. 

Rounding 

Now let's try a new function. 
Substitute the following for lines 
100-120: 
No. 65 • October 1983 



100 FOR X = TO MX 
110Y = 2*X/3 
120 PRINT X;Y 

When you RUN the program this 
time, a list of values instead of a 
graph will appear on the screen. Notice 
that most of the numbers calculated for 
Y are not whole numbers. Instead, 
many are decimals that end with a 
bunch of 3's or 6's. If you try to plot 
this on the screen by substituting 120 
XI - X: Yl - Y: GOSUB 1000, you may 
or may not get a plot on the screen. The 
POKE command is designed to handle 
integers, not floating-point numbers, 
so your computer may give you an error 
messcge. Even if you were to use 
INT('/1, you would still get the wrong 
result. When X = 2, Y is two-thirds. 
The INT( ) function turns two-thirds 
into 0, but we all know it should have 
been rounded up to 1. 

Add the following line to your 
program: 

70 DEF FNR(X)=INT(X + .5): REM Not 
for Atari! 

This defines a general-purpose round- 
ing function, which we can use with 
any floating-point variable anywhere in 
the program. (It is not restricted to the 
variable X, even though it was used in 
the definition.) Revise the main portion 
of your program so it appears as below: 

100 FOR X = TO MX 

110 Y = 2*X/3 

120 Y = FNR(Y): REM Atari use: 120 

Y = INT(Y + .5). 
130 X1 =X: Y1 s Y: GOSUB 3000 
140 NEXT X 

MICRO 



RUN the program now and you will 
see that, although the line of X's is 
pretty ragged, at least the values for Y 
have been rounded correctly. 

Scaling 

The data you want to plot don't 
always fit neatly in the system we have 
set up. What happens when the 
numbers you calculate are larger than 
the maxima or when they are a lot 
smaller? The answer is to introduce a 
scaling factor. Consider the follow- 
ing example: 

100 FOR X = TO 20 

110Y = X*X 

120 X1 =X: Y1 = Y: GOSUB 3000 

130 NEXT X 

Be sure line 3010 is still in your plot 
subroutine and RUN the program. The 
first four or five points are plotted, but 
the remaining values are not. When 
X = 5, Y = 25, putting the point just off 
the top of the screen. When X = 20, 
Y = 400 and it would take a screen more 
than eight times as high to plot the 
point! To keep everything on the screen 
we need a scaling factor, which we 
will define in the set-up portion of 
the program: 

90 SY = .05: REM CC use 90 SY = .037 



Combine this with the rounding func- 
tion to get a new line: 

1 15 Y = FNR{Y*SY): REM Atari use: 115 
Y = INT(Y*SY + .5y 



Each character unit in the vertical 
direction is now 20, but all the points 
will appear on the screen when you run 
the program. To determine the ap- 
propriate scaling factor, you must 
know the maximum value for your 
function. Divide the value of MY by 
the function maximum. This number 
is your scaling factor. To make things 
neat, round it down when it is less than 
one and up when it is greater than one. 
Twenty-two divided by 400 is .055, so I 
chose .05 for SY. (For CC 15/400 = 
.0375, so use SY = . 037.) 

Now let's try an example that 
works the other way around. This time 
the values for Y will all fall between 
and 1, so we'll need a large scaling fac- 
tor. In addition we'll need a scaling fac- 
tor for X. Delete lines 100-199 and type 
in the following program segment: 

(Continued on next page) 
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90 PI = 3.14159265: SY = MY: 

SX = PI/MX 
100 FOR X = TO MX 
110X1=SX*X 
120Y = SIN(X1)*SIN(X1) 
130 Y = FNR(Y*SY):REM Atari use: 130 

Y = INT(Y*SY + .5) 
140 X1 =X: Y1 = Y: GOSUB 3000 
150 NEXT X 

RUN the program first and you will 
see a rough bell curve plotted on the 
screen. Now for the details. Let's start 
with line 130. First Y (which I told you 
stays between and 1) is multiplied by 
SY ; which was set to MY in line 90. 
Then the rounding function is used. For 
the purposes of the calculation, X starts 
at and goes up to ?r radians (the com- 
puter's SIN and other trigonometric 
functions use angles measured in ra- 
dians rather than degrees). For the 
screen plot, we need integer values be- 
tween and MX. The solution is to 
keep X as an integer between and MX 
(line 100) and use another variable XI 
that increases in increments of 1/MX 
times it radians. XI is used for the 
calculation in line 120, and subroutine 
3000 gets XI, as usual. By the way, 
those of you with Commodore com- 
puters can eliminate the first statement 
in line 90 and replace the variable PI 
with the it character. 



Origins 

The previous example used the 
sine-squared function so we could keep 
the graph on the screen. Next we will 
graph a function that goes both positive 
and negative — • a simple sine function. 
To do this, we need to move the origin. 
(Remember we placed it at the lower 
left corner cf the screen at the very 
beginning.) The new origin is at the left 
edge in the middle (see figure 2). Delete 
lines 100-150 and replace them with 
the following program: 

25CY = INT(MY/2) 

90 PI = 3.14159265:SY = INT(MY/2): 

SX = 2*PI/MX 
100FORX1=0TOMX 
110X = SX*X1 
120Y = SIN(X) 
130 Y = FNR(Y-SY): REM Atari use 

Y = INT(Y*SY+.5) 
140 Y1=Y: GOSUB 2500 
150 NEXT X1 

In addition to the main program, we 
add a new plot-routine entry that will 
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automatically convert the origin from 
an assumed left-center origin to the 
usual lower-left: 

2500 REM LEFT-CENTER ORIGIN 

CONVERSION 
2510Y1=Y1+CY 

A lot has happened all at once. The 
sine function yields results between 1 
and - 1 or in a range of 2. To fill the 
screen vertically, we need a range of 
MY, so multiplying by INT(MY/2) 
converts the range to MY. As usual, the 
X value ranges in integer units from 
to MX, so we use XI as the FOR... 
NEXT loop index, and this gets passed 
directly to the plot routine. To 
calculate the Y values we use a separate 
variable X. By applying the horizontal 
scaling factor SX, we use X in the range 
to 2 n in increments of 1/MXth of 
lit . 

In the main program, we converted 
the range of the function to the full 
height of the screen. However, the low 
end of the range is -DMT(MY/2). 



Adding CY (which conveniently is 
INT(MY/2)) makes the whole range 
positive, from to MY. Instead of 
RETURNing to the main program, this 
routine automatically flows through to 
the plot routine we have been using all 
along. This way, you end up with a 
dual-purpose routine. If you are plotting 
with a lower-left origin, use GOSUB 
3000; if you are plotting with a left- 
center origin, use GOSUB 2500. 

Polar Coordinates 

Most functions can be handled very 
well with the x-y coordinate system we 
have used so far. However, many func- 
tions, such as the circle we are about to 
plot, are best dealt with using a polar 
coordinate system. In this system, a 
point's position is described by its 
distance (in a straight line) from the 
origin and the angle this line makes 
with the horizontal in a counter- 
clockwise direction. See figure 3 for an 
illustration of this. Point A is described 
by the length of the line LI and the 



Figure 3: Polar coordinates 



90' 



180' 




A (L1,T1) 



360* 



B (L2.T2) 



270* 



MICRO 



No. 65 - October 1983 



angle Tl, while point B is represented 
by distance L2 and angle T2. 

The computer handles angles in 
radians, while humans are more com- 
fortable using degrees. Therefore we 
add a new function to convert angles in 
degrees to radians: 

70DEFFNR(X) = INT(X + .5): 
DEFFND(X) = X*PI/180 
(Atari use: 70 DEG) 

To plot a circle, we need the origin 
in the center of the screen, so we need a 
center value for X and a new plot-rou- 
tine entry to handle the center origin: 

25 CY = INT(MY/2): CX = INT(MX/2) 
2000 REM CENTER ORIGIN 

CONVERSION 
2010X1=X1+CX 

This flows to the left-center entry and 
then to the main plot xov %e. Now you 
have a routine with three different en- 
tries, depending on the origin you are 
using. If you were using the routine 
with the x-y coordinate system and a 
center origin, then you would call the 
routine with GOSUB 2000. However, 
we are going to be using the polar coor- 
dinate system, so there will be a polar- 
to-rectangular section preceding it: 



1000 REM POLAR (L,T) TO 

RECTANGULAR (X1.Y1) 

CONVERSION 
1010 T1 =FND(T): REM Atari use: T1 =T 
1020X1=L*COS(T1) 
1030Y1=L*SIN(T1) 

Since we are now performing so 
many adjustments on the data, it is 
best to save the rounding until just 
before the actual plotting takes place: 

3025 X1 = FNR(X1): Y1 = FNR(Y1) 
(Atari: 3025 X1 = INT(X1 + .5): 
Y1=INT(Y1+.5) 

Now for the main program. With 
the polar coordinate system, L will be 
the same for all points, and the angle 
will change in even increments over 
the full 360 degrees: 



100 FOR T = TO 357 STEP 3 

110 L=CY: REM VIC and Apple lo-res 

use: 110L=CX 
120 GOSUB 1000 
130 NEXT T 




Apple LO-RES Listing 



(Substitute the following for the 
start-up module and subroutine 
3000. Everything else should work 
as described in the text.) 



10 HOME: POKE -16302,0: POKE 

-16304,0: CALL -1992 
20 COLOR = 1 5: MX = 39: MY = 47 



900 IF PEEK(- 16384) < 128 

THEN 900 
910 TEXT: HOME 
999 STOP 



3000 REM X1 =0 TO MX Y1 =0 

TO MY 
3010 IF (Y < 0) OR (Y1 > MY) OR 

(X< 0)OR(X1>MX)THEN 

3060 
3020Y1=MY-Y1 
3030 PLOT X1.Y1 
3060 RETURN 
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Chances are that you won't get a 
circle, even if you thought you were 
plotting one. Your circle is probably 
more oval-shaped. This is because the 
space a character occupies is not 
perfectly square. Keep the circle plot on 
the screen and measure it with a ruler 
vertically and horizontally. Divide the 
vertical distance by the horizontal 
distance to get your symmetry factor. 
My factor came out to 1.33. By adding 
one line to your program, you can make 
the circle, and any other radial pat- 
terns, appear more symmetrical: 

2005 X1=X1* 1.33 

Another easy pattern is a spiral: 

100 FOR T = TO 717 STEP 3 
110L = CY*T/720 
120 GOSUB 1000 
130 NEXT T 

By consulting geometry and 
trigonometry books, you will find 
other radial patterns, such as clover 
leaves, that can be easily programmed 
with the polar coordinate system. 

Commodore Motes 

In the start-up module we defined a 
variable CC, which we haven't used. 
MICRO 



We can use the variable in line 3050: 

3050 POKE CM + PO.CC: REM 
COMMODORE ONLY 

RUNning any of the program ex- 
amples will now cause the plot to 
appear in red instead of black. You may 
vary the color as each point is plotted 
by changing the value of CC, or you can 
set it once at the beginning. 

As part of next month's character- 
graphics feature, I will present routines 
that use the Commodore machines' 
powerful graphics characters to achieve 
higher resolution. 

Plotting Your Own Functions 



You should be able to plot nearly 
any function using the general-purpose 
routines presented. Follow this simple 
procedure: 

1. Type in the start-up lines and lines 
900-999 as shown for your computer. 

2. Type in the plotting subroutines. 
Store this on tape or disk. It will be 
your template for any plotting you will 
do. Lines 100-899 will vary from plot to 
plot; the others will stay the same. 

3. Determine the origin. If X and Y 
both stay positive, use the lower-left 
origin (line 3000). If Y goes both 
negative and positive, use the left- 
center origin (line 2500). If both X and 
Y go both positive and negative, then 
the center origin should be used (line 
2000). Radial patterns, such as cir- 
cles, ellipses, spirals, and florettes, 
should use polar coordinates as well 
(line 1000). 

4. Determine the horizontal range (X 
direction) of your plot. Usually you 
will want to cover the whole range in 
integer increments. Use this range to 
pass (in variable XI) to the plot 
subroutine and calculate another X 
value, using a horizontal scaling factor, 
for your Y value calculation. The 
horizontal scaling factor is determined 
by dividing the actual horizontal maxi- 
mum by MX (or CX for center plots). 
(See the sine wave example.) 

5. Determine the vertical range (Y 
direction) of your plot. Divide MY (or 
INT(MY/2) for left-center or center 
origins) by the actual Y range of the 
function to get the vertical scal- 
ing factor. 

6. The rest is simple. Use a 
FOR... NEXT loop with XI or X as the 
index. Remember to pass XI and Yl to 
the subroutine. 
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Gam© writing in any language can be a 
rewarding experience. When writing 
games imagination and fantasy are 
transformed into graphic or text display, 
which requires a foundation in 
program design. 



by Michael Allen 



This article introduces the novice programmer to 
game programs. The Pascal language is used to pro- 
vide clear examples. Advanced programmers will 
want to utilize these same concepts as assembly-language 
functions and procedures for greater speed in fast- 
paced games. 

I have presented the examples as a compilable program 
so that the beginning game programmer is presented with 
a core around which to write his play screens. Any of the 
routines presented can be used as is or modified further for 
specific applications. Many of the routines can be vised by 
more than one calling routine by adding parameters to the 
function headings. 

When checking the list of variables, you will find that 
the majority used during the game are declared as global. 
The reason for this is to avoid using parameters, thus 
making it easy to keep track of the procedure calls dur- 
ing development. 
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In the fully compilable program that follows, the pro- 
grammer needs only to fill in the screens. Using the pro- 
cedures provided, a very playable game can be written 
(such as the sample screen). With a little effort and some 
modifications (try some graphics) this program can 
become the basic framework for any kind of game you 
might wish to write in Pascal. 

{$3+} {SWAPPING OPTION FOR COMPILING LARGE PROGRAMS} 
PROGRAM GAME; 



USES APPLESTUFF} {NEEDED IN APPLE PASCAL 

RANDOM, RANDOMIZE AND KEYPRESS ARE HIGHLY 
USEFUL ROUTINES CONTAINED IN THIS UNIT} 

CONST 

SIZE = 5; 
TYPE 

INDEX = INTEGER; 
VAR 

HI, POINTS : INTEGER [10] ; 

LEVEL.MEN : INDEX; 

LETTER : CHAR; 

WORDARR : PACKED ARRAY[1. .SIZE] OF CHAR} 

COUNT, I : INDEX} {COUNT VARS-USE IN LOOPS AS NECCESSARY} 

HISCORE : TEXT} {FILE FOR STORAGE OF HIGH SCORE VALUE} 



PROCEDURE SCREEN; FORWARD; {TO AVOID UNDECLARED NAME ERRORS} 

The function 'COMPARE' compares a keyboard input 
to an array and returns a boolean value. This function 
would be useful in Hangman-type word games. The input 
variable 'LETTER' is compared to the array 'WORDARR' 
to check for a match. 



FUNCTION COMPARE : BOOLEAN; {COMPARE AN INPUT TO A ARRAY} 

VAR I : INTEGER; 

BEGIN 

FOR I := 1 TO SIZE DO 
IF LETTER = WORDARR[I] 
THEN 
BEGIN 
WORDARR[I] :* '0'} 
COMPARE := TRUE} 
EXIT(COMPARE); 
END 
ELSE COMPARE := FALSE; 
END; 

The PLAYER UPDATE procedure is one of those 
routines that every game program must have. This pro- 
cedure keeps the player informed as to the number of men 
left in play and the current score. 

PROCEDURE PLAYERUPDATE; {UPDATE PLAYER INFO} 
BEGIN 

WRITELN( 'POINTS ■ '.POINTS); 

IF MEN = 1 THEN WRITELN(MEN, * MAN LEFT') 
ELSE WRITELN(HEN, ' MEN LEFT'); 
END; 

Another necessary procedure is the 'END GAME' 
routine that tidies up the loose ends, such as storing the 
high score and displaying the player's level of achievement. 

PROCEDURE ENDGAME; 
BEGIN 

PAGE (OUTPUT); 

WRITELNCHIGH SCORE ■* «,HI); 

WRITELN;WRITELN; 

PLAYERUPDATE; 

G0T0XY(12,12); 



IF POINTS > 1000000 THEN WRITELN( 'SUPER MAN') 
ELSE IF POINTS > 500000 THEN WRITELN{ 'ABOVE AVERAGE') 
ELSE IF POINTS > 250000 THEN WRITELN( 'COMMON MAN') 
ELSE IF POINTS > 100000 THEN WRTTELN( 'ALMOST MAN') 
ELSE WRITELN('YOU COULD LOUSE UP A BRICK WALL')} 
{RESET(HISCORE); 

IF POINTS > HI THEN WRITELK(HISC0RE, POINTS);} 
{CAN BE USED AFTER CREATING DISK FILE} 
EXIT(PROGRAM); 
END; 



FUNCTION RAND : INTEGER; {ONE IN TEN RANDOM NUMBER} 
CONST 

LOW ■ 1; 

HIGH = 100; 
VAR 

MX,C,D : INTEGER; 
BEGIN 

C := HIGH - LOW + 1; 

MX := (KAXINT - HIGH + LOW) DIV C + 1; 

MX := MX * (HIGH - LOW) + (MX - 1); 

REPEAT 
D := RANDOM ; 

UNTIL D < MX; 

RAND := LOW + D MOD C; 
END; 

The procedure DELAY is a variable delay. The length of 
delay is contingent upon the level of play. 'DELAY' is a 
simple loop repeated 'N' times, 'N' being dependent on 
the value of 'LEVEL'. 

PROCEDURE DELAY; {DELAY BASED ON LEVEL OF PLAY} 

VAR I : INTEGER; 

BEGIN 

I := 2000 - 200 * LEVEL; 

IF I <600 THEN I := 600; 

REPEAT 
I := I - U 

UNTIL 1=0} 
END} 

The HALLMON (hall monitor) procedure is a pro- 
cedure for computing the chance (50/50 in this applica- 
tion) of escaping or avoiding an obstacle. The obstacle can 
be mobile or stationary. This procedure can also be used in 
combination with 'PERCENTILE', 'CHANCE', and 
'FUMBLE' for greater flexibility of action with multiple 
branching. 

PROCEDURE HALLMON} {WANDERING OBSTACLE} 
VAR I : INTEGER} 
BEGIN 
I := RAND; 
G0T0XY(12,14); 
WRITELNC '.-80); 
G0T0XY(12,14); 
IF 0DD(I) 
THEN 
BEGiNI 
POINTS := POINTS + 1000 * LEVEL; 
WRITELN('Y0U GOT IT'); 
END 
2LSE 
BEGIN 
MEN := MEN - 1; 
WRITELNC IT GOT YOU!'); 
EXIT(SCREEN)} 
END} 
END; 



The function CHANCE is simply a 1 - 100 random- 
number generator. 



FUNCTION CHANCE : INTEGER; {ONE IN A HUNDRED RANDOM NUMBER) 
CONST J 

LOW = 1} 

HIGH = 100} 
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VAR 

MX,C,D : INTEGER; 
BEGIN 

C := HIGH - LOW + 1} 

MX :« (MAXINT - HIGH + LOW) DIV C + 1; 

MX := MX * (HIGH - LOW) + (MX - 1); 

REPEAT 
D := RANDOM } 

UNTIL D < MX; 

CHANCE := LOW + D MOD C; 



PROCEDURE LINE1; {RANDOM TEXT GENERATION} 
BEGIN 
RANDOMIZE; 
CASE RAND OF 
1,6 : WRITELN( 'QUIET AS A MOUSE 1 ). 

WRITELN('A CAT WOULD BE JEALOUS') 5 
WRITELN('EVER CONSIDER A DISHONEST PROFFESSION')} 
WRITELN('THE NEXT ONE WON' T BE SO EASY') J 
WRITELN( 'YOU' VE DONE THIS BEFORE RIGHT 1 1 ' ) ; 



2.7 : 

3.8 : 

4.9 : 
5,10: 

END; 
END; 



PROCEDURE LINE2; 
BEGIN 

RANDOMIZE; 

CASE RAND OF 

1.6 : WRITELN('THAT WAS A CLOSE ONE'); 

2.7 : WRITELN('BE CAREFUL !!•)* 

3.8 : WRITELN( 'YOU'RE A REAL KLUTZ TODAY'); 

4.9 : WRITELN('EVER CONSIDER A "QUIET" HOBBY ??'); 
5,10: WRITELN('YOU ALMOST BLEW IT *); 

END; 
END; 



The procedure FUMBLE decides whether or not the 
player has fumbled (1 - 64); if he has he loses one man. If 
the player has not fumbled 'LINE2' is called. 



PROCEDURE FUMBLE; 
VAR CH : INTEGER; 
BEGIN 

CH := CHANCE; 
IF CH >= 65 THEN LINE2 
ELSE BEGIN 

WRITELN ('YOU WOKE THE WHOLE NEIGHBORHOOD'); 
MEN := MEN - 1; 
EXIT(SCREEN); 
END; 
END; 



The PERCENTILE procedure uses the number 
generated by 'CHANCE' to make decisions — in this case 
to decide between 'LINE1' {76 - 100), 'LINE2' (26 - 75), or 
'FUMBLE' (1 - 25). 'LINEF and 'LINE2' simply print text 
messages selected at random. 

PROCEDURE PERCENTILE; 
VAR CH : INTEGER; 
BEGIN 
CH : = CHANCE; 
IF CH > 75 THEN LINE1 
ELSE IF CH > 25 THEN LINE2 
ELSE IF CH >= 1 THEN FUMBLE; 
END; 



The INDAT procedure is the same as performing a 
'READ' statement except now allowable inputs are 
selected by the programmer. In the example, only 'A' 
through 'Z' will be accepted. 



PROCEDURE INDAT; 
BEGIN 
GET(KEYBOARD); 



WHILE NOT (KEYBOARDAIN ['A'..'Z']) DO 

GET(KEYBOARD); 
LETTER := KEYBOARD A; 
END; 



PROCEDURE SCREEN; {SAMPLE SCREEN} 
VAR 

LIMIT : INDEX; 
CORRECT : INDEX; 
BEGIN 
WORDARR := 'GAMES'; 
CORRECT := 0; {0 CORRECT GUESSES} 
LIMIT := 20; {20 GUESSES} 

WRITELN('YOU HAVE TWENTY GUESSES TO FIND THE LETTERS'); 
WRITELN('IN A FIVE LETTER WORD'); 
WRITELN; 

WRITELN( 'WHEN YOU FIND THE LETTERS UNSCRAMBLE THEM'); 
WRITELN('TO FIND THE WORD'); 
WRITELN; 

WRITELN( 'START GUESSING. IF YOUR GUESS IS CORRRECT'); 
WRITELN('THE COMPUTER WILL PRINT THE LETTER ON THE SCREEN.'); 
REPEAT 
INDAT; 

IF COMPARE THEN 
BEGIN 

WRITE(LETTER); 
CORRECT := CORRECT + 1; 
END; 
LIMIT := LIMIT - 1; 
UNTIL (CORRECT = 5) OR (LIMIT * 0); 
WRITELN; WRITELN; 
IF LIMIT « THEN 
BEGIN 
WRITELN('OUT OF GUESSES'); 
MEN := MEN - 1; 
END; 
POINTS := (2000 - (100 # (20 - LIMIT))) « LEVEL; 
PLAYERUPDATE; 
END; 



PROCEDURE SCREEN2; 

BEGIN 

END; 



PROCEDURE SCREENS; 

BEGIN 

END; 



PROCEDURE SCREEN*; 

BEGIN 

END; 



BEGIN {MAIN} 

{RESET (HISCORE, • HISCORE • ) ; 

{FILE ON DISK FOR SAVING LAST KIGH SCORE 

READLN(HISCORE,HI);} 
MEN := 6; 
POINTS := 0; 
LEVEL := 1; 
REPEAT 

SCREEN; 

IF MEN = THEN ENDGAME; 

SCREEN2; 

IF MEN = THEN ENDGAME; 

SCREEN3; 

IF MEN = THEN ENDGAME; 

SCREEN4; 

LEVEL := LEVEL + 1; 
UNTIL (MEN = 0); 
ENDGAME; 

{CL0SE(HISC0Rr„L0CK);} 
END. 



Michael Allen has been programming in Pascal for about two 
years. He is currently employed at Martin Marietta Aerospace 
as a quality engineer and is working toward a B.S. in Computer 
Science at Chapman College. You may contact Mr. Allen at 
1500 West Cherry, Lompoc, CA 93436. 
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VIDEO TERMINAL BOARD 82-018 



This is a complete stand alone Video Terminal board. 
AH that is needed besides this board is a parallel 
ASCII keyboard, standard NTSC monitor, and a 
power supply. It displays 80 columns by 25 lines of 
UPPER and lower case characters. Data is transfer- 
red by RS232 at rates of 110 baud to 9600 baud — 
switch selectable. The UART is controlled (parity etc.) 
by a 5 pos. 6\p switch. 

Complete source listing is included in the documen- 
tation. Both the character generator and the CRT pro- 
gram are in 2716 EPROMS to allow easy modification 
to your needs. 

This board uses a 6502 Microprocessor and a 6545-1 
CRT controller. The 8502 runs during the horz. and 
vert, blanking (45% of the time). The serial input port 
is interrupt driven. A 1500 character silo is used to 
store data until the 6502 can display it. 




Features 



• 6502 

• ©545-1 CRT eontro9l@r 

• 2716 EPBQM char. gen. 

• 271® EPROM program 

• 4K RAM (6116) 



28€ EPBOM 2716 
RS232 I/O for direct 

Gonnect3on to computer 

or modem. 

80 columns x 25 l\m display 



• Size 6.2" \ 1.2" 

« Output for speaker (belt) 

• Power 4-5 700M8. 

-12 50Ma. 




This board is available assembled and tested, or bare board with the two EPROMS 
and crystal. 

Assembled and tested #82-01 8A $199.95 

Bare board with EPROMS and crystal #82-016B $ 89.95 

Bo*i-, versions come with complete documentation. 



a& John Bell Engineering, Inc. 



ALL PRODUCTS ARE AVAILABLE FROM JOHN BELL ENeSNEEKINQ, INC. • 1014 CENTER ST., SAN CARLOS, CA 94070 

add sales tax in california • add 5% shipping & handling 3% for orders over $100 

(415)592-8411 10% outside u.s.a. 

WILL CALL HOURS: 9am - 4pt 



SEND $1.00 FOR CATALOG 



ADD $1.50 FOR C.O.D. 



WLJLCJjJQ 



#249 



No. 65 - October 1983 



MICRO 



37 






i*in 




r hen an Applesoft BASIC pro- 
gram is employed to search an 
array containing hundreds or 
thousands of names and addresses, the 
results can be relatively slow in forth- 
coming. This is a major reason that 
assembly language (ASL) is used for 
the tasks. 

The ASL Piogr am 

Listing 1 is a 6502 assembly-language 
program that utilizes two important 
Applesoft interpreter functions — 
PTRGET ($DFE3) and GETARYPT 
($B7D9). PTRGET allows the attain- 
ment of descriptor addresses for string 
variables using VARPNT ($83,84) loca- 
tions. The descriptor consists of three 
bytes, the first leading to the string 
length and the next two to the string 
address (low/high bytes, respectively). 
The manner in which the string/ sub- 
string (B$) length is obtained, as well as 
the pointers to the addresses containing 
the string variable values, is depicted in 
lines 27-40. 



This; Applesoft 

a mi 

search. String- 

string/substrin 

up to 11000 characters in a 



B^SSC program d 
ige program to 
ly variables cat 



emonstrates the use of 
tain a rapid array 
s© quiekiy scanned for 
possible to search 
of a second. 





•an 




by L S. Reich 
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The utilization of GETARYPT 
allows the attainment of descriptor ad- 
dresses for variable string arrays. 
Initially, GETARYPT is employed to 
find the location of a string array header 
whose address is stored in LOWTR 
($9B,9C) locations. Seven bytes are 
then added to find the location of the 
descriptor for the first array element 
(A$(0)), and the next descriptor is three 
bytes away, etc.; e.g., lines 99-105 (also 
see p. 137 of the Applesoft II BASIC 
Programming Reference Manual). This 
is depicted in lines 43-50. In lines 
51-59, the string array length is ob- 
tained as well as array pointers to ad- 
dresses containing the variable string 
array values. In lines 61-67, the string 
array length for A$(J) is compared with 
the string length for B$. If the latter 
value is larger, then another descriptor 
is obtained for the next string array, 
lines 99-106; otherwise, the difference 
in the lengths is stored in PTR+1 to 
determine the last test position. In 

No. 65 ■ October 1983 



lines 69-86, a counter is used (PTR) to 
determine whether the last test posi- 
tion has been reached; if not, then fur- 
ther comparisons are made between 
A$(J) and B$. 

A successful comparison (GOTWKD) 
results in location $1A possessing a 
value of $FF (lines 108-110} and a 
return to the BASIC program. Lines 
83-86 allow A$(J) to be compared along 
its length with string/substring B$. In 
lines 87-97, the values in counters 
$1B,1D (low/high bytes, respectively) 
are compared with the number-of-words 
limit established in locations $3AA,3AB 
(low/high bytes, respectively). This 
limit was imposed in the associated 
BASIC program. When this limit (N in 
the BASIC program) is attained, BASIC 
is reentered (line 111). 

The BASIC Program 

Listing 2 is the BASIC program. As 
previously mentioned, the number-of- 
words limit (N) is stored in locations 
$3AA,3AB (lines 40 and 70). If the 
RETURN key is used for the key word 
(B$), then the program ends (lines 
90-100). In line 110, if D$ = "N" then 
only the first string array (A$(J)) that 
shows a match with the string/sub- 
string (B$) will be displayed. However, 
if D$ = "Y" then all string arrays con- 
taining B$ will be displayed. 

Line 310 represents the first string 
array, A$(0). In line 130, the ASL pro- 
gram is called using CALL 768,B$,A$. 
The ampersand function may be used 
instead of "CALL 768" by appropriate 
modification of the program. This 
change should result in a slightly faster 
program. When a successful match has 
been obtained [($1A) = $FF), the 
matched string variable is displayed 
(line 150). If D$»"N" the program 
then ends; otherwise ($1A) is reset to 
zero and the matching is continued 
(lines 170-180). 

References 

1. G. B. Little, MICRO, (57:32). 

2. L. Reynolds, Call-A.P.P.L.E., p. 26 
(January 1981). 

3. B. Sander-Cederlof, Apple Assembly 
Line, #7, p. 18 (1981). 

4. J. Crossley, Call-A.P.P.L.E. in 
Depth, #1, p. 51 (1981). 

5. C. Kluepfel, Call-A.P.P.L.E., p. 50 
(May 1981). 
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Listing 1 



String Search 

requires: 

Apple II 



» Rapid String Search * 

» * 

» By L.S. Reich * 

* * 

* CALL 76B,B$,A$ * 

* * 

* Search for B$ in A$ using ML * 

* Routine from Applesoft BASIC * 

* * 
» Copyright (C) 1983 * 
» By MICRO Ink * 
» 10 Northern Blvd. * 
» Amherst, NH 03031 * 
» * 
ft**«*ft»*»*ft************************* 

START 
*» APPLESOFT POINTERS: 



0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 

0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 



0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 



MICRO 



0341 A5D1 
0343 C5D0 
0345 902A 
0347 A5D1 

0349 38 
034A E5D0 
034C 8511 
034E A900 

0350 8510 



JTR 

VARPNT 

L0WTR 

LENB 

CHKC0M 

PTRGET 

GETARYPT EQU 



GEQU $10 

GEQU 

GEQU 

GEQU 

EQU 

EQU 



$9B 
$00 



0300 20BEDE 
0303 20E3DF 
0306 A000 
0308 841A 
030A 841B 
030C 8410 
030E 841D 
0310 B183 
0312 85D0 

0314 C8 

0315 B183 
0317 8506 
0319 C8 
031A B183 
031C 8507 

031E 20BEDE 
0321 20D9F7 
0324 A59B 

0326 18 

0327 6907 
0329 85E7 
032B A59C 
032D 6900 
032F 85E8 
0331 A000 
0333 B1E7 
0335 85D1 

0337 C8 

0338 B1E7 
033A 8508 
033C C8 
033D B1E7 
O33F 8509 



LOOP 



ORG 

JSR 
JSR 
LDY 
STY 
STY 
STY 
STY 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 

JSR 

JSR 

LDA 

CLC 

ADC 

STA 

LDA 

ADC 

STA 

LDY 

LDA 

STA 

INY 

LDA 

STA 

INY 

LDA 

STA 

LDA 
CMP 
BLT 
LDA 



Initialize 



$DFE3 
$F7D9 

$300 

CHKC0M 

PTRGET 

#$00 

$1A 

$1B 

PTR 

$1D 

(VARPNT) ,Y 

LENB 



(VARPKT),Y Get Pointers 
$06 and Store 

(VARPNT) ,Y 
$07 

CHKCOM 

GETARYPT 

LOWTR 



Get to first 
Array Variable 



L0WTR+1 



($E7),Y 

LENB+1 

($E7),Y 



($E7),Y 
$09 

LENB+1 
LENB 
AGAIN 
LENB+1 



Get Array 
Pointers and 
Store 



SBC LENB 

STA PTR+1 

LDA #$00 

STA PTR 



(Continued on next page) 
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Telecoi 

■ m_B_ — - iff! f! JBffi iFii mr rfii ' 



with a difference! 

Unexcelled communications power and 
compatibility, especially for ?^^ on f^lL r m 
serious computer users. Look us over; SuperTerm 
isn't just "another" terminal program. Like our 
famous Terminal-40, it's the one others will be 
judged by. 

UP/DOWNLOAD FORMATS -CBM, Xon-Xoff, 

DISPLAY MODES- 40 column; 80/132 with 

side-scrolling . , „ . c 

. EMULATION -42 popular terminal protocols 
. FUNCTION KEYS-8 standard. 52 user-defined 
. BUFFERS - Receive, Transmit, Program, and Screen 
. EDITING - Full-screen editing of Receive buffer 
. FILE CONVERSION-ASCII to PGM, PGM to ASCII 
. PRINTING -Continuous printing with > m f* A^Ji 
aTp™l printer; buffer printing with other interfaces 

. Dis^SUPPORT-Directory, Copy. Rename, Scratch, 

. FLEXIBILITY-Select baud, duplex, panty, stopbits. etc. 

Program options are selected W™^*^ 
keys. For maximum convenience, an EXEC file > sets 
options on start-up. SuperTerm may be .backed^ for 
safety- Software on disk or cassette, with specal 
cartridge module. 

Write for the full story on SuperTerm; or, If you 
already want that difference, order today! 

1 coecifv VIC or 64 when ordering. „„»™»m»«wk»b 

Just need UP/DOWNLOAD? 

if vni j don't vet need SuperTerm's power, perhaps 
^SmS^^Q or '64 Terminal Plus is right for 
you We took our top-fated, smooth-scrolling terminal 
programs, added up/download, disk commands and 
even more convenience. Then we put them on disk for 
Sowing, just like you wanted. Need we say more? 

OnlV $49.95 (VIC version requires 8K mem exp) 
P.S. Trade in your original Terminal-40 or '64 Terminal and 

deduct S J 0.00. 
. frn .^Ba.re.rademamsofC^mmodoreBectron^Ud. 




sn IF PEEK (927) = 224 THEN 40 
30 PRINT CHR$ (4)«BL0AD STRING.OBJ,A$300» 
40 N " 257: REM NUMBER OF WORDS SEARCHED 
50 DIM A$(N) , 

6 7°0 "POKE 5S.fi/~JSi" » — OF WORDS LIMIT 

Z F ofl = TO H-l: READ A$(I): NEXT 

90 INPUT "GIVE KEY WORD: ";B$ 

100 IF B$ = "" THEN 200 „„, 

iio TNPUT "ALL OR FIRST 0CCURANCE A/F)? ";F$ 

«a ™tt 76ft Bffi AS- REM GET AS'S MATCHING B$'S 

W 5 PEEK (26) - 255 THEN PRINT A$( PEEK (29) * 256 ♦ 
PEEK (27)): PRINT :REM DISPLAY SIGNAL 

60 IF F$ = "F" THEN 200 

70 POKE 26,0: REM REINITIALIZE 

£0 CALL 881: REM CONTINUE MATCHING 

.90 GOTO 150 

irS DATA LE0,LE0N,SAL,D0RIS,MARGE,BILL,JOHN,WALTER, 

i0 ° Dm S!erThans,george,charles,frank,kelly,rory, 

TED,LEONARD,JACK,DAVID,WILLIAM,WILU,MARY, 

margo,alice,jason,mark 



MICRO 
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Listing 2 (continued) 



310 DATA GRAYSQN^EL.BETTX.CARA.DALE.EIIA.FRANCIS, 

PRANCES,GAIL,HARBY,HAR01D,ERNEST,JIU.,KILMER, 
N0RMAN,OLIVER>PHItLIP,ROBERT,SALLY,TH0MAS, 
ARN0IJ3,BUELL,HAYNARD,M0IRA,HAI£Y 
320 DATA HERLE,MURIEL,JACK&)N,HILLARY,HOLMES,STANtEY, 

MARGARET,SIMPSON,SYLVIA,BERNICE,BERNARD,CARRIE, 
CHARLOTTE,PEARL,MINNIE,NORHA,ANN,VIRGINIA,GRACE, 
ROSE,R0SEMARY,LILLIAN,L0UISEAIU,NELLIE 
330 DATA LEWIS,LEWISON,LENNY,HERMAN,LESTER,LEMUEL,SAMUEL, 
HOMER.URS^OLF.XAVIER^OUNG.ZELMO^LHER^HIOffiR, 
BARRY,STEVE,STEPHEN,PHILO,GARRY,?RESTON,SANDRA, 
SANDY,ALBERT,CARMEN,ALD0,ZERO 
340 DATA LEWIS,LEWISON,LENNY,HERMAN,LESTEri,LEMUEL,SAMUEL, 
HOMER,LARS,WOLF,XAVIER,TOUNG,ZELMO,ELMER,HILMER, 
BARRY,STEVE,STEPHEN,PHILO,GARRY,PRESTON,SANDRA, 
SANDY,ALBERT,CARMEN,ALDO,ZERO 
350 DATA MERLE,MURIEL,JACKSON,HILLARY,HOLMES,STANLEY, 

MARGARET,SIHPSON,SYLVIA,BERNICE,BERNARD,CARRIE, 
CHARLOTTE,PEARL,MINNIE,NORMA,ANN,VIRGINIA,GRACE, 
ROSE,ROSEMARY,LILLIAN,LOUISE,LILA,NELLIE 
360 DATA GRAYSON,ABEL,BETTY,CARA,DALE,ELU,FRANCIS,FRANCES, 
GAIL,HARI«,HAROID,ERNEST,JILI.,KIUffiR,NORMAN, 
OLIVER,PHILLIP,ROBERT,SALLY,THOMAS,ARNOIJD,BUELL, 

MAYNARD,MOIRA,HALEY 

370 DATA LEO,LEON,SAL,DORIS,MARGE,BILL,JOHN,WALTER,PETER, 
HANS,GE0RGE,CHARUSS,FRANK,KELLY,R0RY,TED,1E0NAED, 
JACK,DAVID,HILLIAM,WILLA,HARY,MARGO,ALICE,JASON,MARK 

380 DATA GRAYSON,ABEL,BETTY,CARA,DALE,ELLA,FRANCIS,FRANCES, 
GAIL,HARRY,HAROLD,ERNEST,JILL,KILMER,NORMAN,OLIVER, 
PHILLIP,ROBERT,SALLY,TH0MAS,ARNOLD,BUELL,MAYNARD, 

390 DATA SRSilEL,JACKSON,HILLARY,HOLMES,STANLEY,HARGARET, 
SIMPSON,SYLVIA,BERNICE,BERNARD,CARRIE,CHARLOTTE, 
PEARL,MINNIE,NORMA,ANN,VIRGINIA,GRACE,ROSE,ROSEMARY, 

LILLIAN,LOUISE,LILA,NELLIE 
400 DATA LEWIS,LEWIS0N,LENNY,HERMAN,LE8TER,IEMUEL,SAMUEL, 
H0MER.LARS,WOLF,XAVIER,Y0UNG,ZELMO,EIMR,HIIMER, 
BARRY,STEVE,STEPHEN,PHILO,GARRY,PRESTON,SANDRA,SANDY, 

ALBERT,CARMEN,ALD0,ZER0 JUQ^©'" 




Qty. 20 



5%" SSQD-96TPI (746) $2.89 ea. 

5'A" DSQD—96TPI (747) $3.95 ea. 

(Specify soft, 10 or 16 sector.) 

8" SSSD (740) $2-07 ea, 

8" SSDD (741) $2-54 ea 

8" DSDD (743) $3-30 ea 

(Specify soft or 32 sector.) 

Save even more on quantity orders! 

Minimum Order: 20 diskettes. Add $3.00 shipping 

per 200 diskettes. C.O.D. charge $1.65 additional. 

Visa • Mastercard • Checks 

For fast service, call 

DBSK WORLD! 

Nationwide: 1-800-621-6827 

In iilinois: 312-944-2788 

BISK WORLD! 

Suite 4806 • 30 East Huron Street • Chicago. Illinois 6061 1 1 





DISCOUNT COMPUTER 



APPLE 



Eliminator 

War 

Adventureland 

Pirates Adventure 

Golden Voyage 

Magic Window 

Temple of Apshai 

Upper Reaches of Apshai 

Curse of Ra 

Midway Campaign 

Hi-Res Computer Golf 

DOS Boss 

The Arcade Machine 

Star Blazer • 

Choplifter 

Serpentine 

Deadly Secrets 

Raster Blaster 

Bug Attack 

The Home Accountant 

Snack Attack 

Pig Pen 

Wordrace 

Rendevous 

Russkl Duck 

Horizon V 

Sargon II 



Bataii Oiscountl- 



'©aii^lisi^^MicATAijR,^ 



$29.95 


21.00 


24.95 


18.00 


29.95 


21.00 


29.95 


21.00 


29.95 


21.00 


99.95 


72.00 


39.95 


29.00 


19.95 


15.00 


19.95 


15.00 


16.00 


12.00 


29.95 


21.00 


24.00 


18.00 


44.95 


33.00 


31.95 


23.00 


34.95 


25.00 


34.95 


25.00 


34.95 


25.00 


29.95 


21.00 


29.95 


21.00 


74.95 


54.00 


29.95 


21.00 


29.95 


21.00 


24.95 


18.00 


39.95 


29.00 


34.95 


25.00 


34.95 


25.00 


34.95 


25.00 



Zorkl 
Zork II 
Deadline 
Mastertype 
Castle Woifenstein 
Supertext II 



39.95 29.00 

39.95 29.00 

49.95 36.00 

39.95 29.00 

29.95 21.00 

150.00 108.00 



Softcard Premium System 775.00 600.00 
Wizard and the Princess 32.95 24.00 
Time Zone 



Cranston Manor 
Threshold 
Softporn Adventure 
Crossfire 
Frogger 
Laff Pak 
Ultima II 
Screenwriter II 
Graphics Magician 
Pie Man 
Fastgammon 
Congo 
Goldrush 
Gorgon 
Beer Run 
Snake Byte 



99.95 72.00 

34.95 25.00 

39.95 29.00 

29.95 21.00 

29.95 21.00 

34.95 25.00 

34.95 25.00 

59.95 44.00 

129.95 94.00 

59.95 44.00 

29.95 21.00 

24.95 18.00 

34.95 25.00 

34.95 25.00 

39.95 29.00 

29.95 21.00 

29.95 21.00 



Intec 32K Board $75.00 
APPLE Compatible Disk Orlve $265.00 I 
VERBATIM/DATALIFE Disks $26.00 gppQj flA OFFERS 



Threshold (d) 
Snake Byte (d) 
Space Eggs (d) 
Bandits (d) 
Color Print (d) 
Canyon Climber (d) 
Shooting Arcade (d) (t) 
Pacific Coast Highway (d) (t) 
Clowns And Balloons (c*i (t) 
Wordrace (d) 
Andromeda (d) 
Deadline (d) 
Zork I (d) 
Zork II (d) 

Alien Swarm (d) 

Action Quest (d) (t) 

Ghost Encounters (d) (t) 

K-Razy Shootout (c) 

K-Razy Kritters (c) 

Ultima I (d) 

AliBaba and Forty Thieves (d) 

Deluxe Invaders (c) 

Gorf (c) 

Wizard of Wor(c) 

Preppie (d) (t) 

Tigers In The Snow (d) (t) 

Ghostly Manor (d) 

Raster Blaster (d) 



$39.95 


29.00 


29.95 


21.00 


29.95 


21.00 


34.95 


29.00 


39.95 


29.00 


29.95 


21.00 


29.95 


21.00 


29.95 


21.00 


29.95 


21.00 


24.95 


18.00 


34.95 


25.00 


49.95 


36.00 


39.95 


29.00 


39.95 


29.00 


34.95 


25.00 


29.95 


21.00 


29.95 


21.00 


49.95 


36.00 


49.95 


36.00 


39.95 


29.00 


32.95 


24.00 


39.95 


29.00 


49.95 


36.00 


49.95 


36.00 


29.95 


21.00 


39.95 


29.00 


24.95 


18.00 


29.95 


21.00 



AtARf 



Rear Guard (d) 

Rear Guard (t) 

Caverns of Mars (d) 

Atari Basic (c) 

Star Raiders (c) 

Centipede (c) 

Pac Man (c) 

Pilot (c) 

Temple of Apshai (d) (t) 

Upper Reaches of Apshai (t) 

Curse of Ra (d) 

Midway Campaign (t) 

Apple Panic (d) 

Track Attack (d) 

Choplifter (d) 

Star Blazer (d) 

Wizard and the Princess (d) 

Jawbreaker (d) (t) 

Crossfire (d) (t) 

Frogger (d) (t) 

The Shattered Alliance (d) 

Battle o! Shlloh (d) 

Submarine Commander (c) 



24.95 


18.00 


19.95 


15.00 


39.95 


29.00 


59.95 


45.00 


44.95 


33.00 


44.95 


33.00 


44.95 


33.00 


79.95 


60.00 


39.95 


29.00 


19.95 


15.00 


19.95 


15.00 


16.00 


12.00 


29.95 


21.00 


29.95 


21.00 


34.95 


25.00 


31.95 


24.00 


32.95 


24.00 


29.95 


21.00 


29.95 


2100. 


34.95 


25.00 


39.95 


29.00 


39.95 


29.00 


49.95 


39.00 



MANY MORE PROGRAMS AVAILABLE 



TERMS: Send check or money order 
for total purchase price, plus $2.00 
for shipping. Ml residents add 4% 
tax. C.O.D. accepted. 

® MFCS. TRADEMARK 



VISA AND MASTERCARD ACCEPTED L J 



►TROM 



P.O. Box 197 
Plymouth, Mil. 48170 
(313> 4SS-8022 



SYSTEMS INC. 



WRITE Oft CALL FOR FREE CATALOG 

PHONE ORDER HOURS 

4PM-9 PM MON. - FR1. 

INCLUDE CARD NUMBER 
AND EXPIRATION DATE WITH 

CREDIT CARD ORDERS. 
INCLUDE TYPE OF COMPUTER. 
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by Keith Davison and Phil Daley 



Listing 1 



************************************* 

* * 

* MENU DIRECTORY * 

* BY KEI1H DAVISON * 



0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 



****#******«*****»************** 



***** 

CSW GEQU 
INDEX GEQU 
RTS EQU 
FRESPC GEQU 
VARPNT GEQU 
RETURN EQU 
TXTPTR GEQU 
COUNT GEQU 
FLAG GEQU 
KEYBUF EQU 
SETPTR EQU 
PAUSE EQU 
GDBUFS EQU 
PTRGET EQU 
GETSPA EQU 
COUT1 EQU 
SETKBD EQU 
SETVID EQU 



$5E 
$60 
$71 



$FE 

$FF 

$200 

$3EA 

$AE34 

$D539 

$DFE3 

$E452 

$FDF0 

$FE89 

$FE93 



ORG $300 



0300 A960 
0302 8D34AE 
0305 A900 
0307 85FE 

0309 85FF 
030B-2089FE 
030E A926 

0310 8536 
0312 A903 
0314 8537 
0316 20EA03 

0319 A900 
031B 8D2703 
031E A902 

0320 8D2803 
0323 C6FF 

0325 60 

0326 8D0002 

0329 EE2703 
032C E6FF 
032E FOOC 

0330 20F0FD 
0333 2089FE 
0336 2093FE 

0339 4CEA03 
033C C98D 
033E D0E3 

0340 AE2703 
0343 CA 



BEGIN LDA 
STA 
LDA 
STA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
RESTOR LDA 
STA 
LDA 
STA 
DEC 
RTS 
STA 
INC 
INC 
BEQ 
JSR 
JSR 
JSR 
JMP 
CMP 
BNE 
LDX 
DEX 



BACK 



STORE 



CONT 



0RTS 

PAUSE 

SKEYBUF 

COUNT 

FLAG 

SETKBD 

0STORE 

CSW 

/STORE 

CSW+1 

SETPTR 

0KEYBUF 

STORE+1 

/KEYBUF 

STORE+2 

FLAG 

KEYBUF 

STORE+1 

FLAG 

CONT 

C0UT1 

SETKBD 

SETVID 

SETPTR 

^RETURN 

BACK 

STORE+1 



0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 
0096 



0344 2039D5 
0347 AD2703 
034A 2052E4 
034D AC2703 
0350 A900 
0352 855E 
0354 A902 
0356 855F 

0358 88 

0359 B15E 
035B 9171 
035D 98 
035E D0F8 

0360 A5B8 

0362 48 

0363 A5B9 

0365 48 

0366 A98D 
0368 85B8 
036A A903 
036C 85B9 
036E 20E3DF 

0371 68 

0372 85B9 

0374 68 

0375 85B8 
0377 AOOO 
0379 AD2703 
037C 9183 
037E C8 
037F A571 
0381 9183 

0383 C8 

0384 A572 
0386 9183 
0388 E6FE 
038A 4C1903 
038D 

038D 204141 
0390 2428 

0392 E2 

0393 283235 
0396 342929 
0399 3A 



LOOP 



JSR 

LDA 

JSR 

LDY 

LDA 

STA 

LDA 

STA 

DEY 

LPA 

STA 

TYA 

BNE 

LDA 

PHA 

LDA 

PHA 

LDA 

STA 

LDA 

STA 

JSR 

FLA 

STA 

PLA 

STA 

LDY 

LDA 

STA 

INY 

LDA 

STA 

INY 

LDA 

STA 

INC 

JMP 

MSB 

DC 

DC 
DC 



GDBUFS 

STORE+l 

GETSPA 

STORE+l 

(MCEYBUF 

INDEX 

/KEYBUF 

INDEX+1 

(INDEX) ,Y 
(FRESPC), Y 

LOOP 
TXTPTR 

TXTPTR+1 

#DVTA 

TXTPTR 

/DATA 

TXTPTR+1 

PTRGET 

TXTPTR+1 

TXTPTR 
#$0 

STORE+1 
(VARPNT), Y 

FRESPC 
(VARPNT), Y 

FRESPC+1 
(VARPNT) ,Y 
COUNT 
RESTOR 



OFF 



C« AA$(' 

H'E2' 
C'(254)):' 




Ihe Apple menu program uses a 
machine-language routine to 
convert the normal CATALOG 
routine into a string array of the in- 
dividual entries. CAT.OBJ (listing 1) is 
the assembly-language listing of the 
routine to accomplish this task. If you 
don't have an assembler, enter the 
monitor with a CALL-151 and type 



r Listing 2 
10 



TEXT : HOME 
20 PRINT CHR$ (4)"BLOAD CAT.OBJ,A$300" 
30 GOTO 120 

40 INVERSE : PRINT LEFT$ (Q$,2);: NORMAL 
50 PRINT MID$ (Q$,3)j: RETURN 
60 IF CARD = 3 THEN PRINT CHR$ (12): RETURN 
70 HOME : RETURN 
80 IF J / (CARD * 2 / 3 + 2) < > 

INT (J / (CARD * 2 / 3 + 2)) THEN PRINT 
90 RETURN 

100 J$ = »": IF J < 10 THEN J$ * "0" 
110 J$ = J$ + STR$ (J) : RETURN 
120 DIM A$(100),AA$(100),B$(100),I$(100),T$(100), 

S$(100),R$(100): TEXT : HOME 
130 CARD « 3: REM 80 COLUMN CARD SLOT: 

SET TO FOR NORMAL 40 COLUMN DISPLAY 
140 CALL 768 

150 PRINT CHR$ (4)"CATAL0G" 
160 PR0 CARD: CALL 1002 
170 COUNT = PEEK (254) - 1 

180 PRINT : PRINT COUNT" CATALOG ENTRIES ON »AA$(2) 
190 FOR J « 4 TO COUNT 
200 Z$ = MID$ (AA$(J),2,1) 
i 210 IF Z$ * "T" THEN T = T + 1: GOSUB 100:T$(T) = J$ + 
MID$ (AA$(J),8,18): GOTO 270 
220 IF Z$ = "I" THEN 1=1+1: GOSUB 100:I$(I) = J$ + 

MID$ (AA$(J),8,18): GOTO 270 
230 IF Z$ = "A" THEN A = A + 1: GOSUB 100:A$(A) = J$ + 

MID$ (AA$(J),8,18): GOTO 270 
240 IF Z$ s "B" THEN B = B + 1: GOSUB 100:B$(B) = J$ + 

MID$ (AA$(J),8,18): GOTO 270 
250 IF Z$ = "S" THEN S = S + 1: GOSUB 100:S$(S) = J$ + 

MID$ (AA$(J),8,18): GOTO 270 
260 IF Z$ = "R" THEN R = R + 1: GOSUB 100:R$(R) = J$ + 

MID$ (AA$(J),8,19) 
270 NEXT 

(continued) 
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Listing 2 



280 SP$ » " " 

290 T$ = "Text Files" + LEFT$ (SP$,10) 
300 1$ = "Integer" + 1EFT$ (SP$,13) 
310 A$ = "Applesoft" + UEFT$ (SP$,U) 
320 B$ * "Binary" + LEW (SP$,l4) 
330 S$ * "Source" + LEFT$ (SP$,l4) 
340 R? » "Relocatable" + LEFTS (SP$,9) 



350 
360 
370 

380 
390 

400 
410 

420 
430 



6 + 9: PRINT " — CATALOG " 



GOSUB 60: HTAB CARD 

IF NOT T THEN 380 

PRINT T$;: FOR J = 1 TO T:Q$ = T$(J): 

GOSUB 40: NEXT : GOSUB 80 

IF NOT I THEN 400 

PRINT 1$;: FOR J = 1 TO I:Q$ = I$(J): 

GOSUB 40: NEXT : GOSUB 80 

IF NOT (A) THEN 420 

PRINT A$; : FOR J = 1 TO A:Q$ = A$(J) : 

GOSUB 40: NEXT : GOSUB 80 

IF NOT B THEN 440 

PRINT B$;: FOR J = 1 TO B:Q$ = B$(J): 

GOSUB 40: NEXT : GOSUB 80 



« S*(J): 



= R$(J); GOSUB 40: NEXT 



IF NOT S THEN 460 

PRINT S$;: FOR J = 1 TO S:C 

GOSUB 40: NEXT : GOSUB 80 

IF NOT R THEN 480 

PRINT R$j: FOR J = 1 TO R:C 

VTAB 23 

INPUT "WHICH Flltf TO RUN? ";A$ 
500 A = VAL (A$) 
510 IF A = THEN HOME : END 

IF MID$ (AA$(A),2,1) = "S" OR HID$ (AA$(A),2,l) 
= "R" THEN PRINT "YOU CAN'T RUN AN 'R» OR 'S' 

TYPE FILE": HOME : END 

IF MID? (AA$(A),2,1) = "B" THEN A$ = "BRUN" 

IF MID? (AA$(A),2,l) = "A" OR MID$ (AA$(A),2,1) 
. »iii THEN A$ = "RUN" 
550 IF MID$ (AA$(A),2,1) = "T" THEN A$ = "EXEC" 
560 PRINT CHR$ (4)jA$; MID$ (AA$(A),8) 
570 REM END 



440 
450 

460 
470 
480 
490 



520 



530 
540 



mica® 



r~" 



"300: A9 60 ... etc.", entering all the 
hexadecimal code. After a RETURN 
you need only to type ":" to continue 
entering data. The monitor keeps track 
of the addresses. Type "300L" to check 
for mistakes and save the code with 
"BSAVE CAT.OBJ,A$300,L$39A". 

Type in the BASIC program as listed 
(listing 2). Line 130 provides for an 
80-column caid in slot 3. This allows 
the menu to display the directory en- 
tries four across instead of two. If you 
don't have an 80-column card, set 
CARD « or delete the line altogether. 
For debugging, you might want to add a 
line 145 STOP to the program. If it 
never gets there, recheck your binary 
file. Also, I recommend that you run 
the program for the first time with a 
disk that you don't particularly care 
about since it is possible, although 
unlikely, to crash a disk. 

The routine at lines 200-270 checks 
the file-type and assigns the filename to 
an array of that file-type. This sorts the 
directory by file-type so that the listing 
can be printed in file-type order. If you 
do not use Source- or Relocatable-type 
files, there are several lines that can be 
omitted from the program: 250,260, 
330,340,440,450,460,470 (renumber 
480 to 440). Lines 350-490 print the 
directory file names and prompt for a 
choice. Lines 520-560 check for file- 
type and send the appropriate com- 
mand to DOS to execute the file. A 
change to allow RAM card owners to 
boot up in Applesoft and load only In- 
teger BASIC when needed would be to 
add code between 540 and 550 to load 
Integer on file-type "I". 

This routine is very fast; if you 
name the program "HELLO" so that it 
will run on boot-up, it is probably 
faster than booting and typing 
"CATALOG". 
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HO P&WER §PB6€ES 
WITH SUPER FAN II. 



Super Fan II's Zener Ray™ Transient 
Voltage Suppressor and Power 
Filter squelches spikes up to 6000 
amps— even those caused by 
lightning-while responding up to 
100 times faster than Apple II's 




built-in suppressor. 

In addition, Super Fan II cools 
your Apple, removing heat buildup 
at a remarkable 17 cubic feet of air 
per minute. Yet it's the,qujetes£ ^ 
fan of its kind on ^ 
the market. 1 

Super Fan II 
also positions a \ 
lighted on/off \ 
computer switch \ 
and two accessory : 
plugs at your fingertips. It's warranted 
for two years and simply clips to 
your Apple II, He or monitor stand. 

See your R.H. Electronics dealer 

today about Super Fan If* or contact 
us at 566 Irelan Street, Buellton, 
CA 93427, (805) 688-2047. 

RHFLECTRONICS. INC. 




Super Fan II. in blacker tan: $109. 
Without Zener flay $74.95 
Additional air Wow seals; $5. 
Available in 240V/ 50 Ht. 
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Dealer/OEM inquiries invited. 
•US Patent (10268283 
#4383286 



France, cal/a/.ft T-255-4463 
Australia call imagmeenng (02)2(2-1411 
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by Bill Walker 




andom number generators play a 
harge part in many computer ap- 
^ plications. These applications 
can range from making sure not all of 
your Klingons are consistently 
destroyed, to controlling computer 
simulations of real events. 

Many of the languages currently 
available for computers (personal or 
mainframe) contain some facility to 
generate random numbers. Most ol 
these generators function by accessing 
some segment of memory that is likely 
to change frequently, and using the 
number thus obtained to gene.:a*e a 
number that is claimed to be ranaom. 
This process is not always com- 
pletely successful. 

The problem is that true ran- 
domness is hard to attain Most 
physical phenomena are actually con- 
trolled by (perhaps unseen) forces that 
destroy true randomness. About the 
best that we can hope for is to generate 
a sequence of "pseudo-random 
numbers, that behaves in a manner suf- 
ficient for our purposes. 

This article will provide insight 
into random number generators, which 
are present in many computer 
languages, and to present some 
algorithms for generating pseudo- 
random sequences of numbers in situa- 
tions where it is necessary for the pro- 
grammer to "roll their own." The 
discussion includes term definition, 
and the presentation of a widely used 
method for generating pseudo-random 
sequences. We will write a short pro- 
gram to implement the algorithm 
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Definitions 



For the purposes of this article, we 
will regard true random sequences of 
numbers as unattainable. (Even white 
noise usually has some organization to 
it.) We will concentrate instead on the 
concept of a pseudo-random sequence. 
Think of a. pseudo-random sequence 
as a bag full of numbers. There are only 
rt> many numbers in the bag, but if we 
reach in the bag and pull out a number, 
there is no number which is more 
likely to be selected. That is, each 
number in the bag has an equal chance 
of being pulled from the bag. 

Each time we select a number from 
the bag, we will make use of it in 
whatever application that we will, and 
then return the number to the bag 
before we choose another number. It is 
clear that we will eventually choose 
the same number twice. 

If the bag is a smatt bag, it will be 
sure that we use all of the numbers in 
the bag before it allows any number to 
be chosen twice. The fact that the 
smart bag will also present the 
numbers to us in some predetermined 
order should not be apparent. The 
numbers coming from the bag are said 
to form a pseudo-random sequence 
since the probability that a particular 
number is selected is the same as the 
probability for any other number. 

The number of numbers that are 
selected before the selected numbers 
start to repeat themselves is called the 
MICRO 



period of the pseudo-random number 
generator. The period may possibly be 
as long as the total number of numbers 
in the bag, but can never exceed 
however many numbers are in the bag. 
To explore the replacement of the 
smart bag with a computer algorithm, 
we need to define two more terms. The 
first term, prime nwnbet, is an integer 
(whole or counting number) that can- 
not be divided evenly by any positive 
integers other than itself and 1. For in- 
stance, the integers 3,5,7,11,13,17, and 
so on are prime numbers, while 2,4 and 
15 are not prime. It is clear that a prime 
number must be an odd number. 

A second related term is that of 
relatively prime numbers. Two 
positive integers are relatively prime if 
the smaller will not divide evenly into 
the larger one. An example would be 
the integers 2 and 9, neither of which 
happen to be prime, but these two 
numbers are relatively prime, since 2 
does not divide evenly into 9. 

Tfee Algorithm 

We will present an algorithm called 



a multiplicative linear congruential 
pseudo-random number generator." 
This particular algorithm is carefully 
disected and rigorously presented in 
Knuth's The Art of Computer Program- 
ming, Volume 2, page 16. If you are a 
professional programmer, you need ac- 
cess to this fine text. 

The heart of the algorithm is the 
recursive formula: 



X(n + 1) = (A * X(n) + C) MOD M 

where X(0), A, C, and M will be 
specified. The trick is to specify these 
quantities correctly. The following 
theorem appears in Knuth's work. 

Tfaeofem 

The above formula yields a pseudo- 
random sequence of length M (i.e. has 
period M) if and only if 

1. C is relatively prime to M 

2. B «■ A - 1 is a multple of P for 
every prime P which evenly di- 
vides M 

3. if M is a multiple of 4, then B is 
also a multiple of 4. 

An especially convenient choice of 

M is to take M as some power of 2. This 

can make programming in some 

languages, such as assembly language, 

(Continued on page 47) 
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' t'a C Is a aame of> World War II tactical armored combat. 
You plbk a nation (from a'mohg.the four major c^bo^*-; 
fB^P&?A^^W-dndfRussd);: You build a -combat 
1 tecTfrom thairmost powerful tanks, assault guns and tank 
^■•SSSUS-vSi^^l the team you've created <n ma]or 
i operations against' like forcesof the enemy. 

All the famous vehicles of the second world war are here- 
Tiae s TantSs "Shermans and JS 11'$; Jagdpanthers. SU 1 52 s 
F?ef fes and T 34t Just'fo name a few. They have all been 
thoVouaS?e earched and their important features program- 
med^nto Z ^game.^ach;vehicie is'.distinguished oy such 
SemeXai armo- thickness, (rear and flanks as well as front), 
Se power sp a eed accelerdtjon and gunjraverse. Even m.nor 
points like fuel tank location can be critical. 

The computer-handles all the technical details. This lets you 
concenS on making the same kinds of decisions the real, 
Hfe tank ^ c^ommanders made You search for the enemy, set 
you! speed aTn your gun and knock out the enemy. The com 
? puter will handle all the rest. 



lilL. 

Ihw* 

Million 



and Gef(nahy f are available \d commdndr^O In all. '^ 
"rf tlhwse^om'fT^diftefenfscena 

, from open.; meeting engagements to assaults .ggafnst/ 
prepared positions \ \ 

'' m You plbk" the sides. You choose the weapons. A simple pur- ; 
chasing system has been provided to let you "buy" what you 
want' in balance with your opponent. < • _• 

*£■ The:resultsdf combatjare .^ii^^:^^<^^^S-:\ 
factors"such,critical elements as range, armor thicknessXfront, 
rear and flanks), tracking time, the speed and maneuvers of 
bothlhe firing and target units, visibility and weapon adjust- 
ment to determine weapon accuracy. 

m Special cptions include hidden movement, ^proved 
poSBk smoke mortars, minefields, close assaults, overruns 
and indirect fire. ' ' > '■■ 

TAG. on diskette retails for $40 00. and can be 
played on th® following computers Apple® II s with 48K, 
(Mockingboald™ Sound Enhanced!), Atari's® with 48K 
Commodore^ & IBM® versions coming -this .fall 
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(Continued from pCRe 44) 
very easy. Suppose we took M - 256 (2 
to the 8th). Then 2 is the only prime P 
that divides M, so we can take B to be 
any even number, and therefore A must 
be odd. Since we must have B, a multi- 
ple of 4, let us choose, for instance, 
B - 12 or A - 13. In this case, C can be 
any number other than 2. For conve- 
nience we will take C to be 3. 
We now have the formula: 

x(n + 1) = (13*X(n) + 3) MOD 256 

The following code would generate 
an array containing 256 pseudo-random 
numbers, ranging from to 255, and 
would contain no repeated numbers. 

X(0):= SEED; 

FOR I : = 1 TO 255 DO 

X(|) : = (13*X(I - 1) + 3) MOD 256; 

The SEED is any integer between 
and 255. Many small computers ar- 
range SEED to be the value of some 
byte that often changes, such as the last 
byte present on an I/O port. If the same 
number is used for SEED in a second 
run of the program segment, the 
resulting sequence of numbers will be 
exactly the same as before, but if a dif- 
ferent SEED is used, the resulting se- 
quence will be different. We see that 
since there are 256 possible choices 
for the SEED, the algorithm can gene- 
rate 256 different pseudo-random num- 
ber sequences. 

If we were to choose M to be much 
larger, say M - 1024 (2 to the 10th) 
we could generate 1024 different 
pseudo-random sequences with the 
same algorithm. 



We choose M - 52, to get the 
period that we desire. We are now re- 
quired to choose C so that C and M are 
relatively prime. Since M is an even 
number, it suffices to choose C as any 
odd number. We will pick C - 3 since 
that is as good as any. 

The choice of the mutiplier A is not 
as obvious. According to the theorem A 

- 1 must be a multiple of every prime 
that divides M. We note that M is 2 * 2 
* 13, so that A - 1 must be a multiple 
of 2 and of 13. We also note that 4 is a 
divisor of M, so that A - 1 must also be 
a multiple of 4. All of this means that A 

- 1 must be 4 * 13, or 52. So we take A 

to be 53. 

We now have the following 

algorithm: 



SUB:= SEED; 
FORI:= 1 TO 52 DO 

BEGIN 

WRiTELN (DECK[SUB + 1]); 

SUB := (53*SUB +3) MOD 52; 

END 

This will deal 52 cards in a random 
order. There are 52 possible such deal- 
ings. We can choose one by specifying 
the value of SEED, which can be the 
value of some memory location that 
varies radically in time, or some 
other number essentially independent 
of time. 

The subscript of "SUB + 1" was 
necessary, since the numbers generated 
vary between and 51, and not be- 
tween 1 and 52 as might be supposed at 
first glance. (It is clear that 52 MOD 52 
isO). 



An Example 

It is clearly to our advantage to 
choose M above as some power of 2. 
However, to illustrate that this is not 
necessary, we will write an example 
card deck shuffling program. 

We will number the cards in a stan- 
dard card deck from 1 to 52. For in- 
stance, we might have 

DECK[1] : = "ACE OF SPACES' 
DECK[2]:= 'ACE OF CLUBS' 

and so on. To shuffle the deck we will 
iust present the cards by choosing the 
subscripts of the DECK using a pseudo- 
random number generator of our own 
design. Clearly, we must have a period 
of 52, since we can't afford to deal the 
same card twice {!). 
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Testing the Gener atof 

Assuring ourselves that the pseudo- 
random number generators that we in- 
vent are as "random" as possible is not 
an easy task. Poor choices of A, C, and 
M can lead to very poor generators. One 
famous example occurs in an old friend 
RANDU from unit-record processing 
days. On many machines, this 
generator used one of the poorest poss- 
ible choices of A, and thus provided 
bias to many unsuspecting users. 

If you run the card shuffler program 
segment above, you will discover that 
the generator tends to produce "runs 
or sequences of numbers that do not ap- 
pear to be random in nature. The card 
shuffler will not pass a "visual inspec- 
tion" for randomness. How do you fix 
it? Just "fiddle" with the multiplier A 
and the SEED. You can improve con- 
siderably on the generator presented 
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above by trial and error methods. Of 
course, trial and error is not adequate 
for many purposes, and we would 
desire that there exist a more rigorous 
method of assuring randomness. Again, 
we find Professor Knuth coming to 
the rescue. 

Knuth devotes about 70 pages to the 
discussion of testing pseudo-random 
number generators such as the one 
above. Testing algorithms are 
presented and discussed m 
mathematical environment. If you are 
using random-number generators, 
either of your own design or as a built- 
in feature of language, you should ac- 
quire and read Knuth' s second volume. 
If you are only zapping Klingons, it is 
not really necessary of course, but if 
you are building bridges for the public 
to walk on, you probably should make 
a careful study, if only for your 
own benefit. 

It is interesting to note that 
RANDU, the built-in random number 
generator that was the standard in the 
industry for many years, flunks some 
of Knuth' s tests miserably. 

The random number generators pre- 
sent in some languages may be inade- 
quate for critical tasks, or may be ab- 
sent altogether. This article has 
presented an algorithm that allows the 
user to develop pseudo-random number 
generators that are adequate for most 
hobbyist purposes. The tests, which 
can be found in the literature, are 
capable of assuring that pseudo-random 
number generators are adequate for a 
given purpose. 

The following rules make design ot a 
pseudo-random number generator easy. 

1. Choose a period equal to a power 
of 2. 

2. Choose A to be equal to a power ot 1 

plus 1. 

3. Choose C to be odd. 



Suggested Reading 

1. The Ait of Computet Programming, 
Volumes i,ii,iii, by Donald Knuth. 

2. Algorithms + Data Structures = 
Programs, by N. Wirth. 

3. A Structured Approach to Pascal, by 
Bill Walker. 

4 ' 'Discrete Event Simulation, ' ' by 
' BUI and Anita Walker (MICRO 56;21) 



Bill Walker is Assistant Professor of 
Electrical Engineering and Computer 
Science at the University of Oklahoma. 
You may contact him at Box 2806, 
Norman, OK 73070. 
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by Richard C. Vile, Jr. 



Linear Search 
requires: 



Apple II 

Listings 1, 2, 4 and 6 require 
Applesoft . 

Listings 3 and 5 require Pascal. 



earching is a technique used in 
many computer programs. More 
^J often than not, a list of some sort 
is searched. The list may consist of a 
variety of different kinds of informa- 
tion. For example: 

• A mailing-list program may use a 
list of names, addresses, or both. 

• In a program to maintain bowling 
scores, it may be necessary to search 
a list of names for the name of a 
specific player. 

9 Computer language translators 
usually maintain a list of identifiers 
or keywords that must frequently be 
searched to distinguish names re- 
served by the language from those 
created by the programmer. 

® In an interactive game, a list of 
command words may need to be 
searched in order to match the com- 
mands typed by the player. 



In all these examples, the lists that 
are searched consist of what are usually 
called character strings, or simply 
strings. Strings are represented in 
various ways depending on the pro- 
gramming language you use: 
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APPLESOFT — String variables hold 
one string apiece: A$. 
Pascal — String variables hold one 
string apiece: S = 'Hi'. 
Assembly language — Strings are just 
sequences of bytes in memory. 
Integer BASIC — String variables are 
arrays of characters and usually hold 
one string apiece. 

Of course, in order to represent a 
list of items in a program, you must be 
able to store many strings at once. This 
is done using an array of strings. Not all 
Apple languages directly allow for ar- 
rays of strings - APPLESOFT and 
Pascal do; Integer BASIC and Assembly 
language do not. For this reason, my 
examples will center on the former 
two languages. 

Linear Search in General 

The general technique of linear 
search assumes the existence of a 
linearly ordered collection of items. In 
these examples, I consider arrays of 
strings. Any collection of "things" 
organized in a lineup of some sort may 
be subjected to linear search. Some ex- 
amples from real life are a pile of 
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magazines on a coffee table, a shelf of 
books, a bin of records on sale at a dis- 
count store, your mailbox full of letters 
and junk mail, a poorly organized col- 
lection of recipes on 3 x 5 cards, and the 
want ads in your local newspaper. 

In all of these examples, if you were 
searching for a specific item such as 
last month's MICRO, an old Beatle's 
album, your income tax refund check, 
a recipe for Quiche Lorraine, or a For 
Sale ad for a used computer, you might 
be apt to start at the top and search 
through the collection one item at a 
time. You would continue until you 
found what you were looking for or un- 
til you ran out of items. 

In some cases you might take ad- 
vantage of extraneous information to 
speed up your search. For instance you 
might remember the color of the cover 
of last month's MICRO. You could 
then limit your search to magazines 
whose covers were of that color. You 
might look through your mail for an 
official-looking government envelope; 
or you might look for the word "COM- 
PUTER" in capital letters in the 
want ads. 

Because you are human, you have 

sophisticated pattern-matching 
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abilities with which a computer cannot 
yet compete. A computer, searching a 
list of items, is not able to use such 
cues in most cases. It has to take each 
item in turn to see whether or not it is 
the one being sought. This is always 
true if the list being searched has no 
other structure than that of a list. In 
future articles I will discuss to what ex- 
tent a computer might take advantage 
of "extra structure. " For now, 
however, I make no assumptions. The 
computer lists are simply big unordered 
piles — like a collection of twenty 
years' worth of Life magazines well 
shuffled from use. 

Here's how to search: 

1. First we ask, "Are there any more 
things left in the pile for which we are 
searching?" If yes, continue the search; 
i.e., do step 2. If no, stop the search. 

2. Is the next thing in the pile the item 
for which we are looking? If yes, we 
succeeded, so quit. If no, do step 3. 

3. Put aside the item at which we just 
looked and rejected. Continue the 
search from step 1. 

The following short names can be 
given to the three steps in the above 
procedure: 1. TEST, 2. COMPARE, 
and 3. LOOP. I shall refer to these "in- 
gredients" in my discussion below. 

Lineai Search in Applesoft 

Listing 1 shows a simple Applesoft 
program illustrating linear search. The 
search itself is done in the subroutine 
beginning at line 1000. The rest of the 
pro-am makes sure there is a list to be 

<-ched and there are items to be 
s< .Arched. The subroutine in listing 1 is 
written in a primitive style in order to 
illustrate the components of the linear 
search explicitly: 

TEST: IF J > 100 THEN RETURN 
COMPARE: IF(ST$(J) = P$)THEN 

F0 = 1 
LOOP: J = J + 1 : GOTO 1010 

Listing 2 uses the BASIC FOR state- 
ment as an alternate method. 



many interesting differences in the pro- 
gramming style of the two languages, 
Applesoft and Apple Pascal. If you are 
just beginning to program in Pascal, 
this suggests one excellent way to leam 
the language; try to rewrite some of 
your BASIC programs using Pascal. Try 
is the key word here as there are some 
programs that rely too heavily on the 
memory layout of the Apple to be 
translated. See how close you can 
come. And concentrate on translating 
the spirit of the program — i.e., what it 
does. Don't try to make a literal line- 
for-lme translation or you'll just get 
bogged down and probably give up. 



Sentinels — More Efficient 
Linear Search 

The test for completion of a linear 
search, "Are we out of items to con- 
sider?", is not conceptually part of the 
search itself. It seems like unwanted 
extra baggage. It really is as you soon 
will see. 

Suppose you knew ahead of time 
that what you were searching for 
definitely was one of the items in the 
collection being searched. Or, to put it 
another way, suppose you knew at the 
start that a successful search was 
guaranteed. Then the TEST part of tbe 
procedure would be superfluous. You 
might think the whole search would be 
superfluous! Leaving that issue aside 
for a moment, let's see if we can think 
of a way to guarantee that all your 
linear searches have happy endings. 

Figure 1 gives the basic idea — an 
extra location in the search collection. 
Why would you want to increase the 
number of items to be searched? To 
guarantee success, of course. You will 
use the extra location to store a copy of 
the item for which you are looking. 
Then if that item turns out not to be in 
the collection proper, you can still find 
it in the extra location at the end. 
Therefore you won't have to worry 
about TESTing whether or not any 



Linear Search in Pascal 

Listing 3 shows another simple pro- 
gram, this time in Apple Pascal. The 
program is similar in spirit to that of 
listing 1, and the list to be searched 
contains the names of the U.S. 
Presidents. 

Study listing 3 and then compare it 
to listing 1. You should be able to see 
No. 65 - October 1983 



Collection to be Searched 



Room for Extra Item 



F/guro 1 : Sentinel Location 
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items are left. At the worst, you will 
find what you are looking for just 
before you run out of items to consider. 

The extra item added to the collec- 
tion is known as a sentinel since it 
stands guard against the possibility 
of failure. 

You now have a slightly different 
problem to solve because there are now 
two possible ways to succeed. 

1. Find the sentinel. 

2. Find the item for which you are 
looking before you get to the sentinel. 

In the first case, even though you 
succeed in one sense, you fail in the 
larger sense. Case 2 could be dubbed a 
real success. After you succeed (which 
you know you will since you have a 
sentinel), you check to see whether or 
not you are at the sentinel location. If 
not, then you really succeed. If so, then 
you were only helped over the finish 
line. Real success awaits in some 
future search. 

Sentinel Searching in Applesoft 
and Pascal 

% Listings 4 and 5 show the linear 
search subroutines of listings 1 and 3 
augmented by the use of a sentinel 
location. Notice that in each case the 
array used to hold the collection to be 
searched must be given an extra loca- 
tion. The first step in the search pro- 
cedure is then to store the item being 
searched in the extra location (at the 
end of the regular array). 

Screen Searching 

Listing 6 presents the linear search 
without a sentinel. It is programmed in 
Applesoft and runs on the screen before 
your very eyes. It is almost entirely 
self-explanatory, but if at any time you 
think it is stuck, just hit RETURN 
and it is likely to continue on its 
merry way. 

EXERCISE: Modify the program of 
listing 6 to use a sentinel location. 

Coming Up 

In the next article in this series, I will 
discuss the mechanism of the Binary 
Search and present an on-screen 
demonstration similar to the Linear 
Search demo of listing 6. 



You may contact Dr. Vile at 
3467 Yellowstone Dr., Ann Arbor, 
MI 48105. 

(Listings begin on page 50) 
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Listing 1 



5 DIM ST$(5O),0K(5O) 
10 TOR I = 1 TO 50: READ ST$(I): NEXT I 
15 FOR I = 1 TO 50:0K(I) » 0: NEXT I 
20 C - 

REM ================ 

3EM = MAIN PROGRAM - 

r^H ========="----==== 

GOSUB 20C 

INPUT "? M ;P$ 

IF P$ a »BK" THEN 180 
110 FO = 0: GOSUB 1000 
115 IF FO = 1 THEN 150 

PRINT P$;" IS NOT A STATE" 

PRINT : GOTO 106 

IF OK(J) = THEN OK(J) = 1:C = C + 1: 
PRINT "GOOD!": GOTO 105 

PRINT "YOU ALREADY NAMED THAT ONE I" 

PRINT "YOU NAMED ";Cj" STATES WITHOUT REPEATING" 

PRINT "GO AGAIN?" 

INPUT A$: IF A$ = "Y" OR A$ = "YES" THEN 15 

PRINT "YOU GOT ";Cj" STATES" 

END 

REM =*«»««»««« 

REM = INSTRUCTIONS = 

REM .snsnnnuDn 

HOME : tfTAB 5: PRINT "WELCOME TO THE GAME OF THE STATES": PRINT 

PRINT "GUESS AS MANY STATES AS YOU CAN" 

PRIKT "WITHOUT REPEATING YOURSELF." 

PRINT 'GOOD LUCK..." 

VTAB 23: HTAB 5: PRINT "TO START, PRESS RETURN"; 

GET A$ 

HOME : RETURN 

REM = LINEAR SEARCH SUBROUTINE = 
REM ======= 



100 
101 
102 
105 
106 
107 



120 
125 
150 

155 
160 
165 
170 
180 
185 
200 
201 
202 
205 
210 
211 
212 
215 
220 
225 
1000 
1001 
1002 



1005 
1010 
1015 
1020 
1025 
2000 
2001 
2«2 
2G05 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 



J = 1 

IF J > 50 THEN RETURN 

IF (ST$(J) = P$) THEN FO = 1: RETURN 
J = J + 1 

GOTO 1010 

REM ================== 

REM = LIST OF STATES = 

REM 0================= 

DATA MAINE, VERMONT, NEW HAMPSHIRE 

MASSACHUSSETTS, CONNECTICUT, RHODE ISLAND 
NEW YORK, PENNSYLVANIA, DELAWARE 
MARYLAND, VIRGINIA, NORTH CAROLINA 
SOUTH CAROLINA, GEORGIA, FLORIDA 
OHIO, WEST VIRGINIA, KENTUCKY 
TENNESSEE, ALABAMA, MISSISSIPPI 
MICHIGAN, INDIANA, ILLINOIS 

DATA WISCONSIN, LOUISIANA, ARKANSAS 

DATA MISSOURI, IOWA, MINNESOTA 

WASHINGTON, CALIFORNIA, OREGON 
IDAHO, NEVADA, ARIZONA 
NEW MEXICO, UTAH, MONTANA 
WYOMING, COLORADO, TEXAS 
OKLAHOMA, NEBRASKA, NORTH DAKOTA 
SOUTH DAKOTA, ALASKA, HAWAII 
KANSAS, NEW JERSEY 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



Listing 2 



1000 REM ============================ 

1001 REM = LINEAR SEARCH SUBROUTINE = 

1002 REM ============================ 

1010 FOR J = 1 TO 50 

1015 IF (ST$(J) = P$) THEN FO = 1: RETURN 

1020 NEXT J 

1025 GOTO 1015 

1049 RETURN 



Listing 3 

PROGRAM USPresidents; 



TYPE 



presname = STRING[25]{ 



VAR 



presidents [33] 
presidents [34] 
presidents [35] 
presidents [36] 
presidents [37] 
presidents [38] 
presidents[39] 
presidents [40] 



presidents: ARRAY[1.. 40] OF presname; 

prex: presname; 
PROCEDURE initlprexies; 
BEGIN 



END { PROCEDURE init2prexies }; 



= 'Harry S. Truman's 
= 'Dwlght D. Eisenhower 1 ; 
= 'John F. Kennedy*; 
= 'Lyndon B. Johnson' j 
= 'Richard M. Nixon' ; 
= 'Gerald P. Ford'; 
= 'Jimmy Carter'; 
= 'Ronald Reagan'; 



presidents [1] 
presidents [2] 
presidents [3] 
presidents [4] 
presidents [5] 
presidents [6] 
presidents [7] 
presidents [8] 
presidents [9] 
presidents [10] 
presidents [11] 
presidents[12] 
presidents [13] 
presidents [14] 
presidents [15] 
presidents [16] 
presidents [17] 
presidents [18] 
presidents [19] 
presidents [20] 



END { PROCEDURE initlprexies }; 



* 'George Washington'; 

= 'John Adams'; 

= 'Thomas Jefferson'; 

= 'James Madison'; 

= 'James Monroe'; 

= 'John Quincy Adams'; 

= 'Andrew Jackson'; 

= 'Martin Van Buren'; 

= 'William Henry Harrison' 

= 'John Tyler'; 

= 'James Polk'; 

= 'Zachary Taylor'; 

= 'Millard Fillmore'; 

= 'Franklin Pierce'; 

= 'James Buchanan'; 

= 'Abraham Lincoln'; 

= 'Andrew Johnson'; 

= 'Ulysses S. Grant'; 

= 'Rutherford B. Hayes'; 

= 'James Garfield'; 



FUNCTION search (VAR s : presname) : BOOLEAN) 
VAR 

INTEGER; 

BOOLEAN; 



i: 

found: 
BEGIN 
found 
1 



:= FALSE; 
:= 1} 



WHILE (( 1 <= 40) AND (NOT found)) 

DO 

BEGIN 

IF s = presidents[i] 

THEN 

found :» TRUE; 

i := i + 1; 
END; 

search := found; 



PROCEDURE init2prexies; 

BEGIN 

presidents [21] 
presidents [22] 
presidents [23] 
presidents [24] 
presldents[25] 
presidents [26] 
presidents [27] 
presidents [28] 
presidents [29] 
presidents [30] 
presidents [31] 
?residents[32] 



•Chester A. Arthur'; 
'Grover Cleveland'; 
•Benjamin Harrison'; 
'Grover Cleveland'; 
'William McKinley'; 
'Theodore Roosevslt'; 
'William Howard T&ft'; 
'tfoodrow Wilson'; 
'Warren G. Harding'; 
'Calvin Coolidge'; 
•Herbert Hoover' ; 
'Franklin Delano Roosevelt' 



BEGIN 

initlprexies; 
init2prexies; 

WHILE prex <> 'quit' 

DO 

BEGIN 

WRITELN ('Name a President'); 

READLN (prex); 

IF search (prex) 

THEN 

BEGIN 

WRITELN ('Good! You got one!'); 
WRITELN ('Try again?'); 
READLN (prex); 
END; 
END { WHILE prex <> 'quit' }} 

end { program usPresidents }. (Continued on page 52) 
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FLOPPY DISKS SALE 
*$1.19 ea 

Economy Model or Cadillac Quality 

We have the lowest prices! 



Total Price 
Total Price 



$119.00 
13.90 



* AutontstlG dust tvmovQt 



ECONOMY DISKS 

Good quality 5V4 W single sided single density with hub rings. 

BulkPac 100 Qty. $1.19 ea. 

10 Qty. 1.39 ea. 

CADILLAC QUALITY 

• Esoh disk c@Ftifi&f§ • F?@@ r®p/8©@f?i®!tf ! wi© wsftsnty 

For those who want cadiilac quality we have the Loran Floppy Disk. Used by professionals because they can roly 

on Loran Disks to store important data and programs without fear of loss! Each Loran disk is 100% certified (an 

exclusive process) plus each disk carries an exclusive FREE REPLACEMENT LIFETIME WARRANTY. With Loran 

disks you can have the peace of mind without the frustration of program loss after hours spent in program 

development. 

100% CERTIFICATION TEST 

Some floppy disk manufacturers only sample test on a batch basis the disks they sell, and then claim they are 

certified. Each Loran disk is individually checked so you will never experience data or program loss during your 

lifetime! 

FREE REPLACEMENT LIFETIME <#«*RANTY 

We are so sure of Loran Disks that we give you a free replacement warranty against failure to perform due to faul- 
ty materials or workmanship for as long as you own your Loran disk. 

AUTOMATIC OUST RECOVER 

Just like a record needle, disk drive heads must travel hundreds of miles over disk surfaces. Unlike other floppy 
disks the Loran smooth surface finish saves disk drive head wear during the life of the disk. (A rough surface will 
grind your disk drive head like sandpaper). The lint free automatic CLEANING LINER makes sure the disk-killers 
(dust & dirt) are being constantly cleaned while the disk is being operated. PLUS the Loran Disk has the highest 
probability rate of any other disk in the industry for storing and retaining data without loss for the life of the disk. 

Lomn Is dMmiim fit® Cstfillae ellsk In flit wmM 

Just to prove it even further, we are offering these super \pw INTRODUCTORY PRICES 

List $4.99 ®a. INTRODUCTORY SALE PRiCi S2.99 ea. (Bm off 1© ®i%) Total prSe® $29.99 

$&»*. (3 cgyanfif?) Total price $9.99 
All disks come with hub rings and sleeves in an attractive package. 
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3 
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3 


2 
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2 


1 


3 
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3 


2 


2 
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1 


1 


2 
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' Add $10.00 for shipping, handling and insurance. Illinois residents 

pleas* edd •% tax. Add $20.00 (or CANADA, PUERTO RICO. HAWAII 

i orders. WE DO NOT EXPORT TO OTHER COUNTRIES. a 

I Enclose Cashiers Check, Money Order or Personal Check. Allow 14 
i days for delivery. 2 to 7 days for phone orders. 1 day express maill 
Canada orders must be in U.S. dollars. Visa ■ MasterCard ■ C.O.O. 



enterprizes*- 

BOX 55®, BARRINGTON, ILLINOIS 
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Listing 4 



1000 REM ======«==========«======= 

1001 REM « LINEAR SEARCH SUBROUTINE 

1002 FEM =========================== 

1005 ST$(51) = P$ 

1010 J * 1 

1015 IF (ST$(J) = P$) THEN 1030 

1020 3 = J + 1 

1025 GOTO 1015 

1030 IF J < 51 THEN FO = 1 

1049 RETURN 



Listing 5 



FUNCTION search (VAR s : presname) : BOOLEAN; 
VAR 

i: INTEGER; 

found: BOOLEAN; 
BEGIN 

found := FALSE; 

presidents [41] := s; 

i :. l) 

WHILE (s<> presidents[i]) 

DO 

BEGIN 

i := i + 1; 
END; 



EH); 



search := (i <> 41); 




Listing 6 

5 DIM IT$(3D),SE$(16),PI(30) 
50 DV = 75:TRY ■ 

100 REM sannaamn 

REM = MAIN PROGRAM = 



101 
102 
105 
110 
115 
117 
120 
123 



G0SUB 200: REM INSTRUCTIONS 

G0SUB 300: REM SETUP 

G0SUB 400: REM DISPLAY 

IF n <> CHR$ (13) THEM TRY = TRY + 1: GOTO 110 

FOR L = 1 TO 16 

GOSUB 700: REM REMOVE OLD TRY 
125 FO = 0: GOSUB 500: REM TRY 
130 IF FO = 1 THEN 150 

VTAB 22: HTAB 30: FLASH : PRINT "NO";: NORMAL 

FOR DE = 1 TO 1000 - 75 * L - 100 * TRY: 
NEXT DE: GOSUB 800 

NEXT L 

GOSUB 700: GOSUB 800 

VTAB 24: HTAB 1: CALL - 868 

VTAB 22: CALL - 868: INVT^SE 

HTAB 5: PRINT S$;" IS NOI ON THE LIST";: 
NORMAL : GOSUB 900 REM BUZZ 

GOSUB 800: GOSUB 800: GOTO 165 

VTAB 22: HTAB 30 

CALL - 868: FLASH : PRINT "YES"; : NORMAL 

GOSUB 800: GOSUB 800 

VTAB 24: HTAB 1: CALL - 868 

VTAB 22: CALL - 868: INVERSE 

HTAB 5: PRINT S$;" WAS FOUND AT ";L; 

NORMAL : GOSUB 800: GOSUB 800 

GOSUB 600 
170 TRY = TRY + 1 
175 IF A$ = CHR$ (13) THEN 110 

luff) 

REM ::»33:3s:::::s: 

REM = INSTRUCTIONS = 
REM ================ . 

HOME : 3PEED= 25 

PRINT '• LINEAR SEARCH DEMO »j PRINT 

PRINT "THIS PROGRAM WILL DEMONSTRATE THE" 
PRINT "TECHNIQUE OF LINEAR SEARCH WITHOUT" 
PRINT "A SENTINEL LOCATION. A LIST OF" 
PRINT "STRINGS WILL BE GENERATED ON THE " 
PRINT "LEFT RIDE OF THE SCREEN AND A STRING" 
PRINT "TO BE SEARCHED FOR WILL BE PRINTED" 
PRINT "AT THE TOP OF THE SCREEN. THE PROGRAM" 
PRINT "WILL GO DOWN THE LIST 'LOOKING' FOR" 
PRINT "A MATCH. AFTER EACH STEP, IT WILL " 
PRINT "PAUSE AND POSSIBLY DISPLAY COMMENTS" 
PRINT "REGARDING ITS PROGRESS. TO MAKE IT" 
PRINT "CONTINUE, SIMPLY PRESS THE RETURN KEY." 
GOSUB 600 
SKEED= 255-' RETURN 
REM «====»■'•'.====== 

REM - INITIALIZE = 
REM 



135 
138 

140 
141 
142 
143 
144 

145 
150 
155 
156 
160 
161 
162 
163 
165 



199 
200 
201 
202 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 



270 
280 
299 
300 
301 
302 
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305 X = PEEK (78) + 256 *' PEEK (79) 

310 RESTORE : FOR I = 1 TO 30: READ IT$(I): NEXT I 

315 FOR I = 1 TO 30tPI(I) = 0: NEXT I 

320 FOR J = 1 TO 16 

322 I = INT ( END (X) #30 + 1) 

324 IF PI(I) THEN 322 

326 SE$(J) = IT$(I):PI(I) = 1 

328 NEXT J 

330 I = INT ( RND (X) #30 + 1) 

334 S$ = IT$(I) 

349 RETURN 

REM =========== 

REM = DISPLAY = 



400 

401 

402 

404 

405 

410 

412 

414 

420 

450 

452 

455 

460 

465 

470 

499 

500 

501 

502 

503 

505 

508 

510 

512 

513 



HOME 

FOR K = 1 TO 16 

VTAB 3 + K: HTAB 1 

IF K < 10 THEN PRINT " »; 

PRINT K;" ";SE$(K) 

NEXT K 

VTAB 2: HTAB 5 

CALL - 868 

INVERSE : PRINT "LOOKING FOR === 

FLASH : PRINT " ";S$;" " 

NORMAL : GOSUB 600 

VTAB 2: HTAB 21: PRINT " ";S$" 

RETURN 

REM = TRY A MATCH AND = 
REM = RETURN RESULT. = 



»;S$f"?»; 



3PEED= 255 
L - 100 * TRY: 



868 
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VTAB 24: HTAB 1: CALL - 86b 
VTAB 3 + L: HTAB 21: PRINT " 
VTAB 22: HTAB 5 
CALL - 868: GOSUB 850 
SPEED= 150 

514 PRINT "IS IT ";SE$(L);» ?»: 

515 FOR DE = 1 TO 1000 - 100 

NEXT DE: GOSUB 850 
520 IF SE$(L) <> S$ THEN RETURN 
525 FO = 1 
549 RETURN 

REM ========= 

RES = PAUSE = 

VTAB 24: HTAB 1 
CALL - 868 
SPEED= 100 

PRINT " "; 

PRINT " PRESS RETURN TO CONTINUE"; 
SPEED= 255 
GET A$ 
RETURN 

REM = ERASE OLD ATTEMPT » 
REM ===================== 

IF L > 1 THEN VTAB 2 + L: HTAB 21: CALL 

RETURN 

REM ============== 

REM = DELAY LOOP = . 

REM ============== 

FOR DE = 1 TO 500: NEXT DE 

RETURN 

REM ================ 

REM = FASTER DELAY ■ 

REM SSSSSSS88SS8SSS& 

FOR DE = 1 TO 200: NEXT DE 
RETURN 

REM = SOUND FAILURE BUZZER = 

910 XX = PEEK ( - 16336) + PEEK ( - 16336) + 
PEEK ( - 16336) + PEEK ( - 16336) 

915 FOR I = 1 TO 2: NEXT I 

920 IF J > 25 THEN RETURN 

925 J = J + 1: GOTO 910 

9000 DATA APPLE II, PET, COMMODORE 64 
APPLE III, VIC 20, TRS-80 

COLOR C0MPUTER,RADI0 SHACK 16, OSBORNE I 
ALTAIR 8800, CROMEMCO 22, ATARI 400 
ATARI 800, SUPER PET, IBM PC 
SINCLAIR ZX81, INTERACT, OSI CHALLENGER 
EXIDY SORCERER, TI COMPUTER, DEC RAINBOW 
ZENITH Z100, SOL COMPUTER, IMSAI 8080 
DIGITAL GROUP, ALTAIR 680, ECD MICRO MIND 
HEATH H89, COMPUCOLOR II, HEATH Hll 
EPSON HX-20, PENTEL PENPUTER,VICTOR 9000 

NO. 65 - <5cto59M983 



600 
601 
602 
605 
610 
620 
640 
645 
650 
655 
699 
700 
701 
702 
705 
749 
800 
801 
802 
805 
809 
850 
851 
852 
860 
899 
900 
901 
902 



9001 DATA 

9002 DATA 

9003 DATA 

9004 DATA 

9005 DATA 

9006 DATA 

9007 DATA 

9008 DATA 

9009 DATA 

9010 DATA 






P.O. Box 4364 
Flint, Michigan 48504 
(313) 233-5731 
(313) 233-3125 



ZANIM 

SYSTEM 





The ZCM-1 is the Master Control module that provides the interface between your comDuter and our 
hne of Zan.m Application Modules. Up to 15 Application Modules canteptagy SJSSd to the ZcS 1 
Master Control module. The ZCM-1 is compatable with any standard RS.232%erKterface A special 
Master Control module, the ZCM-1V is available for the VIC-20 and ComSSSiS^if!^ 
*The ZCM-1V is available for VIC-20 and C-64 users. 



ZAM-1 is the home control interface module that provides a fully versatile computer controlled en- 
vronment. ZAM-1 can control up to 256 different lamps and appliances in ww^eortoiSM*™ 

S?!X£i W,th iy ef / eCtiVe and eaSy t0 impiement ener ^ m ^gement JffiSSJSSSrSItom 
SSt??«I K 5lt C ? ,on8 f 6 necsssaf y t0 V° ur building as all control signals are senTove your e* 

*The ZCM-1/ZCM-1V Master Control module is required to use the ZAM-1 Home Control module. 



The ZAM-2 allows your computer to continuously monitor up to 15 different doors or windows around 

ty system. With our ZAM-1 Home Control module, you can have a fully integrated security and en- 

TX e / 1 t t h C a ? n ! r ?' T tem ' ^ P0n an . i , nt / usion ' V°" r ^mputer can take the acTon mosfwSSato, 
whether that is to ring an alarm bell, flash all the lights around your home, or dial the police. 

*The ZCM-1/ZCM-1V Master Control module is required to use the ZAM-2 Security module. 

I« e *5 A ?" 3 Ifi 1? mplete t e ,e P hon ® answering and dialing system. It is capable of taking the Dhone 
fhi" 7AM Tu d,alh ?s 9 a "T ber , u r der com P"ter control or of answering the phones whTn it rings wSh 
the ZAM-1 Home Control module and the ZAM-2 Security module, the ZAM-3 Phone Dialer modu e 
can be integrated into a complete home or business security/monitoring sysVem AppXa ions ™?ude 
security, auto phone dialing, and computer-answering systems. «PP»c«ions mciuae 

•Pulse dialing option is available as ZAM-3P. 

•The ZCM-1/ZCM-1 V Master Control module is required to use the ZAM-3/ZAM-3P Phono Dialer module. 



■RIAL OR PARJ 

IONICS) PORT SWITCHER 







ES YOUR COMPUTER 
LOOK LIKE THIS? 

A PORT SWITCHER NOW 
AVAILABLE FOR YOUR 
COMPUTER (ZSW1) 



-Common 




P.O. BOX 4364 

Flint, Michigan 48504 

<3i3) 233-5731 

(313) 233-3125 



□ Please send me more information or catalogue! 



Name 

Company 
Address_ 



.State. 



.Zip. 



APPLE 11 IS TRADEMARK OF APPLE COMPUTERS, INC. 

CP/M IS REGISTERED TRADEMARK OF DIGITAL RESEARCH, INC. 

No. 65 - October 1983 



City 

What Make/Model Computer do you own? 



„.„ nn . *.~ TRS ~ m ,S REGISTERED TRADEMARK OF TAN DV CORP. 

VIC • 20 AND COMMODORE . 64 ARE REGISTERED TRADEMARKS OF COMMODORE 1NC« 
MICRO 
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h Operations 

SB ^P^^bk 



by Peter Hlscocks 




rray operations are slow in 

Microsoft BASIC because they 

i,have to be explicitly programmed. 

For example, to add two 32 element 

arrays, we require 

FOR 1 = TO 32 
RL(I)=RL(I) + DV(I) 
NEXT I 

which takes about 0. v seconds. 

For each trip around the loop, 
BASIC has to set a value for I and then 
find the variables RL(I) and DV(I). We 
know, however, that the variables 
follow in sequence, and this can be 
used to speed things up considerably. 

The variables of a floating point 
array are stored in five-byte lumps, one 
after another in memory. To operate on 
two arrays, we set up pointers to the 
zeroth elements, perform the arith- 
metic, then increment the pointers by 
five bytes, continuing until the two ar- 
rays are done. Using the ROM routines, 
the routine given above may be made to 
execute in 0.066 seconds. As a rough 
rule of thumb, expect a factor of 6 to 9 
increase in speed. 

To use this technique we have to be 
able to find the arrays in memory and 
use the BASIC floating point arithme- 
tic routines. 

The method shown here is accom- 
panied by ROM locations for Com- 
modore PET BASIC version 4, but the 
ideas should be transferable to other 
versions of Microsoft BASIC. 
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Finding the arrays 

As shown in figure 1, arrays grow 
upward in memory, as they are dimen- 
sioned, above simple variables. The 
creation of a variable or editing of 
BASIC text will change the shaded 
areas, so we cannot count on the arrays 
being at any fixed location. However, 
the Microsoft routine that finds a 
variable can be used to do this. Handed 
the zeroth element as a variable — 
DV(0), for example — the routine will 



ftllADD 
requires: 

PET/CBM or Commodore 64 



give us back the memory location of 
the start of the array. 

Af fay Storage Format 

An array consists of a header, which 
contains descriptive information about 
the array, and the body, which contains 
the array elements. A typical floatng 
point array header is shown in figure 2. 
Each block is one byte. 

In a multi-dimensional array, the 
last dimension changes least frequently. 
For example, DV(32,5) would be stored 
as DV(0,0) to DV(32,0) followed by 
DV(Q,1) to DV(32,1), and so forth 
to DV(32,5}. 
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Arithmetic Operations 

The arithmetic operations could be 
programmed in machine language. 
This would be worthwhile for opera- 
tions on integer arrays since Microsoft 
BASIC performs integer arithmetic by 
converting the number to a floating 
point, using the floating point routine, 
and converting back to integer. 

For floating point math, the easy 
way out is to use the Microsoft ROM 
routines (table 1). These have been well 
described elsewhere, so this will be 
a summary. 

Mathematical operations take place 
in one of two, six-byte "accumulators" 
on page zero. The FAC is located at $5E 
to $63, and the ARG is located at $66 to 



Figure 1: Array Storage in Ram 



$8000 
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.„-± 
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$0400 
$0000 
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VARIABLES 

BASIC 
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TaW» t: Locations and Routines used In MADD and others of interest 



Check for a comma: CHKCOM 

Evaluate an expression: FRMEVL 

Move variable to FAC: MOVFM 
Variable address low byte to AC 
Variable address high byte to Y 

Move variable to ARG: CONUPK 
Variable address low byte to AC 
Variable address high byte to Y 

Store FAC in memory: MOVMF 
Variable address low byte to X 
Variable address high byte to Y 

Transfer FAC to ARG 

Transfer ARG to FAC 

Convert FAC to 16 bit integer: AYINT 
Result in $61 and $62 



BASIC 
2 

CDF8 

CC9F 

DAAE 
OAAE 

D998 



DAEO 



BASIC 
4 

BEF5 

BD98 

CCD8 
CCD8 

CBG2 



COOA 



AEFD 

AD9E 

BBA2 
BBA2 

BA8C 



BBD4 



FAC = ARG + FAC 

Subtract 

FAC = ARG - FAC 
Multiply 

FAC s ARG * FAC 
Divide 

FAC s ARG / FAC 
FACHS 
FACLO 
VARPNT 
OVRFLO 
UNDFLO 



DB18 


CD42 


BCOC 


DB08 


CD32 


BBFC 


D09A 


C2EA 


B1BF 


D77B 


C9A5 


B86F 


D736 


C989 


B8S? 



D93C 



CB66 



BA2B 



DA20 


CC4A 


61 


61 


62 


62 


44 


44 


65 


65 


60 


6D 



64 
65 
47 
68 
70 



Listing 1 



5* 
$* 
J* 
j* 
s* 
»* 

5* 

;* 
»* 
»* 
>* 
j* 

5* 
}* 






madd 

matrix addition program 

by peter hiscocfcs 

adds dv(i) to rl<i> with result in rl<i> 
also stores integer of rl<i> and 
stores in output t Ale, outble 
calling syntax- s ys gtrl,rl<0> ,dv<0> 
maximum 2S5 elements 

assembled for commodore? 64 
see table for basic 2,4, «< vie 



6006 
6006 



6006 
6006 
6006 
6006 
6006 

6006 
6006 
6006 
6006 
6006 

6000 



6001 
6002 



6003 
6004 



I MM******************************* 



chkeora a Saefd 
frmevl a »ad9e 

I in this case, -find 
> pointer address to 
j start of matrix, 
i varpnt «. varpnt* 1 
movfm » *bba2 
conupk = *ba8c 
fadd = $bB6f 
movmf a sbbd4 

ayint » *blbf 
result in faclo 



check for comma, else syntax error 
5 evaluate expression 



in 



fachi 
f aclo 
varpnt 
ovrf lo 
undf lo 
J 

; 

outble 



*64 
965 
*47 
«6B 
*70 



; memory <rl ) to fac #1 

j memory <dv> to fac #2 (arg> 

I sum of fac & arg to fac 

% fac to memory <rl> 

t fac to integer, 



5 mantissa lsb of fac 

} pointer tu variable 

; overflow error flag 

j underflow err flag 



•6000 



i 64 locations 
f 



*+200 j integer output table 



rllo 
rlhi 



dvlo 
dvhi 



*+l 



elemen *= *+l 

; 



loop address pointers 



number of elements in each array 



(continued) 
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$6A. ROM routines are available to 
move a variable from its storage loca- 
tion into accumulator (in the process 
"unpackmg" changes the format from 
five to six bytes). They are available to 
perform the arithmetic operation, and 
to repack the variable back into its 
storage location. 

The example of listing 1, MADD, is 
a Matrix ADD for 32 elements. It stores 
?ach result back in memory and also 
converts it to fixed point format, 
sending that to an output table OUT- 
BLE for use by a piece of hardware. 
It's a pretty specialized piece of soft- 
ware, but it shows how all this might 
go together. 

The routine is called from BASIC 
with an instruction like 

SYS XXX,RL(0),DV(0) 

where XXX is the start of the machine- 
language routine in memory. Notice 
that the same routine XXX may be 
called with different parameters, or dif- 
ferent routines may be created to per- 
form different array operations. 

When the SYS XXX instruction is 
executed by the BASIC interpreter, the 
BASIC line scanner is left pointing at 
the first comma. 

The routine CHKCOM looks for 
this and prints "SYNTAX ERROR" if 
it's not present. The scanner is now 
pointing at RL(0). Calling the routine 
FRMEVL (evaluate an expression) will 
put the location of RL(0) in the page 
zero locations VARPNT. (It also leaves 
the value of RL(0) in the FAC, but 
that's not used here). We can snag the 
starting location of the array RL(I) by 
reading VARPNT. The routines 
CHKCOM and VARPNT may be used 
again to find the starting location 
ofDV(I). 

Loop control for the number of 
elements in the arrays is built into 
MADD as a "magic number," not a 
good practice. For a general purpose 
routine, you might tack the number of 
elements onto the calling SYS instruc- 
tion as a third parameter, and use 
CHKCOM and FRMEVL to pick it up. 
The result would be left in the FAC in 
floating point, where it could be con- 
verted to integer format by call- 
ing AYINT. 

The error flags OVRFLO and UND- 
FLO, associated with the ROM math 
routines, are then cleared. The pointer 
into the integer output table OUTBLE 
is reset, and we're ready for the main 
addition loop. 

(Continued on next page) 
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In the addition loop, you'll notice 
that various registers have to be set up 
before calling the routines. For exam- 
ple, the accumulator must be set up 
with low byte, Y index register with 
the high byte of a variable's ad- 
dress, before calling MOVFM. In the 
case of MOVMF, it's the X and Y 
index registers. 

The array pointers are then in- 
cremented by 5, the OUTBLE pointer is 
incremented by 2 (a Microsoft integer 
is 2, 8-bit bytes), the loop counter is 
decremented, and we do it again until 
32 elements have been processed. 

A BASIC test routine for MADD is 
shown in listing 2. Two 32 element 
arrays are set up, MADD is called, and 
the result is printed. 

Incidentally, the assembly shown 
in listing 1 was done with the PAL 
assembler for the PET, written by Brad 
Templeton, the author of POWER. I 
recommend it highly. 

Multi-Dimensional Ai i ays 

The variables in the calling instruc- 
tion need not be one-dimensional arrays. 
For example, suppose RL is 32x1 and 
DV is 32x5. The calling instruction 

SYS XXX,RL(0),DV(0,3) 

would have the effect of adding the 32 
elements in the third (of five) columns 
of DV to the 32 elements in RL, leaving 
the result in RL. Notice that 

SYS XXX,RL(0),DV(3,0) 

has a totally different and incorrect 
effect, because of the order of storage of 
the elements of DV. 



Listing 1 (continued) 

6006 outptr 



Figure 2: One Dimensional Array Header 



NAME IN ASCII 



LENGTH OP ARRAY 

(INCLUDING 

HEADKR) 



; pointer into output table 



6006 20 fd ae gtrl 
6009 20 9e ad 
600c a5 47 
600b Bd 00 60 
6011 aS 48 
6013 Bd 01 60 

; 
6016 20 fd ae gtdv 
6019 20 9e ad 
601c aS 47 
601e Bd 02 60 
6021 aS 48 
6023 Bd 03 60 

6026 a9 20 
6028 Bd 04 60 

602b a9 00 
602d 85 68 
602f 85 70 

i 
6031 a9 00 
6033 Bd OS 60 

; 

6036 ad 00 60 ad loop 
6039 ac 01 60 
603c 20 a2 bb 
603f ad 02 60 
6042 ac 03 60 
604S 20 8c ba 

6048 20 6* b8 

604b ae 00 60 
604e ac 01 60 
6051 20 d4 bb 

6054 20 of bl 

6057 ac 05 60 
605a a5 65 
605c 99 c8 60 
605f ee 05 60 
6062 ee 05 60 



j get pointers from sys statement 
) and set up in x:<lo and ;;Khi 

; 



jsr 
jsr 
Ida 
st a 
Ida 
st a 

jsr 
jsr 
Ida 
sta 
Ida 
sta 

Ida 

sta 



chkcom } obtain address of rl <0> 

frmevl 

varpnt 

rSlo 

varpnt+1 

rlhi 

chkcom ; obtain address of dv<0) 

frmevl 

varpnt 

dvlo 

varpnt+1 

dvhi 



#32 
elemen 



Ida #*0 

sta ovrflo 

sta undvlo 

Ida 4)0 

sta outptr 

Ida rllo 

ldy rlhi 

jsr movffl) 

Ida dvlo 

ldy dvhi 

jsr conupk 

jsr fadd 

ld« rllo 

ldy rlhi 

jsr movnrf 



* get the number of 

; elements in the array 

5 clear error flags 



; set up output pointer 

; to start of output table 



; main addition of rl<i) and dv(i> 
; rl <i> to fac 



; dv(i) to arg; 
; fac = fac + arg 



; fac to rl <i) 



jsr ayint ; fac to integer 



6065 18 

6066 ad 00 60 

6069 69 OS 
606b Bd OO 60 
606e a9 00 

6070 Ad 01 60 
6073 8d Ol 60 

6076 18 

6077 ad 02 60 
607a 69 05 
407c Bd 02 60 
607f a9 00 
6081 6d 03 60 
6034 8d 03 60 

6087 ce 04 60 
608a dO aa 



incptr 



ldy 
Ida 
sta 
inc 
inc 

clc 
Ida 
adc 
sta 
Ida 
adc 
sta 



outptr 
faclo 
outble,y 
outptr ; 
outptr ; 



rllo 

#5 

rllo 

#o 

rlhi 
rlhi 



f integer to output table 
increment output table painter 
twice 

add 5 to loop pointers 
to wove to next element 
in the array rl 



; ditto dv 



clc 

Ida dvlo 

adc #5 

sta dvlo 

Ida #0 

adc dvhi 

sta dvhi 



dec elemen ; test for complete 
one adloop 



rts 
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4C 


AC 


00 


Ot 


00 



Listing 2 

10 REM MADDTEST ROUTINE 

20 DIM RL<32>,DV<32> 

30 FDR J=0 TO 31 

10 RL<J)=J:DV<J>==1.33 

50 NEXT J 

60 SYS 24582 ,RL <0> «DV <0> 

70 FOR J«0 TO 31 

S?0 PRINT RL<J> 

90 NEXT J 

100 STOP 



BMO) 
IN FLOATING POINT 



NUMBER 
OF 
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Peter Hiscocks is an instructor at 
Ryerson Polytechnical Institute, where 
he teaches courses in electronic and 
theatre technology. He builds computer 
interfaces on a freelance basis, and has 
just completed a computer-controlled 
sound system for the Royal Ontario 
Museum. You may contact him at 
Ryerson Polytechnical Institute, 
Electrical Department, 50 Gould St., 
Toronto, Canada M5B1E8. 
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FW1RICES IN CHICK 





MOST RIBBONS AVAILABLE IN COLORS TOOt 

CALL OR WRITE FOR OUR SUPPLIES CATALOGUE 

ON ORDERS UNDER *14 .«> PLEASE ADD *3.«> FOR SHIPPING 

MINIMUM RIBBON ORDER *30.°° OR 1 DOZEN 



TOLL FREE 800-343-7706 
5N MASS 617-963-7694 

PHONES OPEN 9AM-7PM EASTERN TIME 
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51 DIAUTO DR. \JVW p.o BOX 103 
RANDOLPH, MA 02368 
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MASS RESIDENTS 
ADD 5% SALES TAX 
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by Terry M. Peterson 




.he Commodore SuperPET con- 
Sains 96K of RAM - three times 
_ the memory of its plain sister, 
the CBM 8032. However, the extra 64K 
of RAM is "stacked" into 16 4K 
"banks" all addressed at $9G00-$9FFF. 
Only one of these banks is accessible to 
the processor at any moment. The ac- 
tive bank is selected by setting the 
bank-select switch, a latch at $EFFC. 
For example, to activate bank seven, 
you would execute the equivalent of 
"POKE 61436,7". To use this memory 
with programs that won't fit within a 
single bank, you obviously need a 
method to jump from one bank to 
routines in other banks and back again 
— a "bank-switched JSR". Ideally, this 
bank-switched JSR would pass all pro- 
cessor registers between the called and 
calling routines just as does an ordinary 
JSR. Furthermore, it should place no 
restriction on the location of either 
routine within its bank. I have im- 
plemented such a bank-switched JSR 
using the 6502 "BRK" instruction 
together with a set of "jump" tables. 
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My bank-switched JSR sacrifices a 
small amount of memory, usually less 
than about one page per bank, in return 
for making inter-bank subroutine calls 
as easy as calls within a bank. To use 
this method, subroutine calls to other 
banks are assembled so they point to an 
entry in a jump table somewhere in the 
bank. The table consists of 8-byte en- 
tries, each of the following form: 

EXTSUB BRK 
NN 

JSR XXXX 
BRK 
$FF 
RTS 

where NN is the number of the bank 
containing the called routine and 
XXXX represents two arbitrary bytes. 
(For convenience in assembly, I usually 
point XXXX to EXTSUB — see listing 
2.) Thus, at assembly time you need 
only the bank number of the called 
routine, not its actual address; you may 
assemble each bank's code in- 
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dependently. All banks' corresponding 
jump table entries mus': be at the same 
addresses, but you may place the tables 
anywhere in the bank — and there may 
be more than one table per bank. In 
operation, the system BRK vector is 
modified to point to the bank- 
managing routine shown in listing 1. 
This "bank manager" could be put in 
bank-switched memory, but it is more 
economical to put it in normal memory 
since you would need to put identical 
copies in all potentially active banks. 
Whenever EXTSUB in this example is 
called, the bank manager saves the cur- 
rent bank number on the machine 
stack and then changes the active bank 
number to NN. Bank NN contains the 
same jump table except that XXXX 
must point to the actual location of the 
called routine. Therefore, when the 
bank manager restores all the processor 
registers and returns control to the JSR 
following the byte "NN", the effect is 
(almost) the same as if a direct JSR were 
executing. (The difference is that three 
more bytes of stack space have been 
No. 65 * October 1983 
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This article shows a 



method for using the SuperPETs bank-switched memory 



with SS02 machine-language p 



the technique may fee used ©n a 



ragrams. Aithough written for the SuperPET, 
ny @S©2 machine having a banked memory. 



used.) Obviously, the only data we may 
pass to the called routine is in the pro- 
cessor registers — unless we first move 
the data to non-bank-switched RAM. 
When the called routine executes an 
RTS, the second BRK is executed and 
the "$FF" byte signals the bank 
manager that we wish to restore the 
previously active bank. The old bank 
number is pulled from the stack, then 
that bank is activated, and control is 
passed to the final RTS in the jump 
table entry with all processor register 
contents restored to their values at the 
time of the called routine's RTS. 

Now that I've described what the 
bank manager does, let's look at listing 
1 to see how it does it. First, it pushes 
on the stack (INDEX1), the contents of 
a pair of zero-page locations to be used 
temporarily. Next it fetches the pro- 
gram counter (PC) bytes from the stack 
where they were pushed during execu- 
tion of the BRK. This is done using 
x-register indexed loads that take ad- 
vantage of the fact that the stack 
pointer has already been loaded into the 
No. 65 - October 1983 



x-register by the SuperPET's interrupt- 
handling ROM routine before calling 
the bank manager. The PC is 
decremented by one and stored as (IN- 
DEX1). (INDEX1) now points to the 
NN byte of the jump table entry. NN is 
fetched and the original (INDEX1) is 
restored. Then NN is tested (TYA) to 
determine whether a jump (NN>=0) 
or return-jump (NN<0) is being re- 
quested. If it's a return, the branch to 
UNSWT is taken. Otherwise the top 
six stack items are lifted to make room 
for the current bank number below 
them. Then the new bank number is 
switched on and control is passed to 
IRQDON, the operating system routine 
that restores the processor registers 
from the stack and executes an RTI. At 
UNSWT the retarn-from-bank RTS is 
accomplished by retrieving the old 
bank number from under the top six 
stack items, putting it on top of the 
stack and moving the top items back 
down to undo the action of the jump- 
to-bank stack manipulation. Finally, 
IRQDON is called to resume normal 
MICRO 



program execution. Probably the most 
difficult part of the bank manager's ac- 
tion to visualize is its stack manipula- 
tion. The stack diagram shown in 
listing 1 should help. 

Using this method of bank- 
switched JSR is fairly straightforward at 
the assember level, especially with an 
assembler that supports conditional 
assembly. An example of a source file 
containing code for bank-switched 
JSR's is shown in listing 2. This listing 
shows the source code describing the 
jump table in both the called and call- 
ing banks. The value of the label 
LCRBNK determines which bank's ob- 
ject code is assembled. Notice that 
routines may be called by the same 
name whether in-bank or out-of-bank, 
thanks to the conditional assembly 
feat ure. 

Terry Peterson is engaged in photovoltaic 
cell research at Chevron Research 
Company. He may be contacted at 8628 
Edge hill Ct., El Cerrito, CA 94530. 

(Continued on next page) 
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Listing 1 



00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
00055 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
0008? 
00084 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0003 
0005 



6502 Assembly language 
code to manage bank switching on the SuperFET 

This code is entered via a BRK n. If 'n- Is positive It 
is assumed to be the bank number to be made active. If 
•n< is negative it flags a return to the calling program's 
bank number. 

as of 11/28/82 



iStaek Use: 



Addrs.X 

00FF 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 



BRK (+) 
T0-BANK call 
At Entry — > At Exit 



Contents 
xx 

xx <— SP 

YR 

XR 

ACC 

SR 

PCL 

PCH 



Contents 
ne» bank<— SP 
YR 
XR 
ACC 
SR 
PCL 
PCH 
old bank 



BRK (-) 
FR0M-BANK call 
At Entry -> At Exit 
Contents Contents 



xx 

XX 

YR 

XR 

ACC 

SR 

PCL 

PCH 



XX 

<— SP 
YR <- 

YR 
XR 
ACC 
SR 
PCL 



old bank 
-SP 



old bank PCH 



0009 

000C 

000E 

000? 

0011 

0012 

0013 

0015 

0017 

0019 

0O1A 

001B 

001D 

001E 

0020 

0021 

0023 

0024 

0025 

0026 

0028 

0029 

002C 

002D 

002E 

0030 

0033 

0034 

0035 

0036 

0038 

0039 

003A 

003B 

003E 

0041 

0044 

0045 

0047 

004A 

004D 

004E 

004F 

0051 

0052 

0055 

0056 

0059 



A5 00 

48 

A5 01 

48 

BC 06 01 

BD 05 01 

DO 01 

88 

84 01 

A8 

88 

84 00 
AO 00 
Bl 00 
A8 
68 

85 01 



85 00 

98 

30 IE 

9D 

FF 

00 

AO 06 

68 

9D 00 01 

E8 

88 

DO F8 

AD 02 90 

48 

8A 

38 

E9 08 

AA 

9A 

68 

8D FC EF 

4C 00 E6 

BD 07 01 

48 

AO 06 

BD 06 01 

9D 07 01 

Ch 

88 

DO F6 

68 

8D FC EF 

68 

4C 00 E6 



* = 
INDEX1 = 
IRQDON = $E600 
BNKSW = $EFFC 
CURBNK = $9002 

BANKER LDA INDEX1 
PHA 

IDA INDEX1+1 
PHA 

LDY ?0106,X 
IDA ?J105,X 
BNE BNK100 
DEY 
BNK100 STY INDEX1+1 
TAY 

DEY 

STY INDEXl 

LDY #0 

LDA (INDEX1),Y 

TAY 

PLA 

STA 1NDEX1+1 

PLA 

STA INDEXl 

TYA 

BMI UNSWT 



5 (For example assembly) 

{Any convenient z-page dbl. byte 

{Restore regs. and RTI 

5 Latch for active bank 

j My conventional location 

j Save INDEX1 on stack 



j Get desired bank # 
I from (PC-1) 



jgot it 

{Restore (INDEX1) 



;a return-from-bank call? 
jYes 



,BYT $9D,$FF,$00 ;STA $00FF,X (force abs. addr. 



LDY #6 
BNK200 PLA 

STA $0100,X 
INX 
DEY 

BNE BNK200 
LDA CURBNK 
PHA 
TXA 
SEC 
SBC #8 
TAX 
TXS 
PLA 

STA BNKSW 
JMP IRQDON 
UNSWT LDA $0107,X 

PHA 

LDY #6 
UN£L0P LDA $0106,X 

STA $0107,X 

DEX 

DEY 

BNE UNSLOP 

PLA 

STA BNKSW 

PIA 

JMP IRQDON 

.END 



jMove six stack items up one 

;Get top item 

{Move up 

jNext 

{Done? 

;No 

j Current bank (by convention) 

j Insert in stack 

;Calc. stack adj. 

jPoint to new bank item 



5 Get new bank 
;Turn it on 
{Go finish interrupt 
5 Get old bank # 
{Put on stack 
{Shuffle 6 item3 down 



{Next 

{Done? 

{No 

;Get old bank 

{Reset it 

{Adj. stack 

{Finish up 



Listing 2 

Example jump table for bank switching 



{ as of 12/05/82 

'.IFN >LMABNK-LCRBNK 
L0ADTR> 

BRK 

.BYTE LMABNK 

JSR LOADTR 

BRK 

.BYTE $FF 



{Dummy def . outside main bank 
; LOADTR In bank LMABNK 



{Back to caller 



RTS 



msem* 
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i^mmmmM 












nflNf 

1111 




m&m 



I' In l|l£l EX PRESS; i s^an- Anthology ; of j He 'lyjajpr^ - ■ : 
^ MrtGlls; a-ndiRfogr ms^emmgMp^^^;^ 

; :;e 'e^avi&n7'mfs; : Ke/Pe^ecI^ies. abci the£esf. 

t;^$ylViS;|6u;ttaye'aii:a 



plus S1 75] 

Vthe:u;s;;).V : -: •*'•■* 



irve NIBBLE EXPRESS Vol. Ill for my 
J1W s,my D Check D Money Order for $17.95 
postage/handling. (Outside U.S. add $2.75 for 

IIBBLE EXPRESS Vol. I at $1 2.95 Plus 
artdling (see above). 

NIBBLE EXPRESS VOL. II at $14.95 plus 
andling (see above) . 

Master Card & Visa Accepted 
Expires: — 






Please Print Clearly 



J3HB, 

^^^■ Name '-~ 
llSl*^S&MaHB City 

^SS^^Sm Your chack or money order must accompany your order to qualify. 



.State. 



.Zip. 



& 



nBFM^^aB Your chack or money oraermusiaui-umyaiiy y"«- —> 
rWlMI Outside U.S.: Checks must be drawn on a U.S. Bank 
^-S^^^^^S • Apple is a registered trademark ol Apple Computer 
^HHr *ACE is a trademark ot Franklin Computer Co. 

^^^^^gan . 

JSSI 



inMIi 




zGornmodore 





Directory 

I* th 



©m 





M^nu 



i ^p fflBi 




j he Commodore directory can be 
accessed by opening it as a file 
and reading program and 
filenames. The directory can be read 
with GET# statements, but this 
method is rather slow: 50 programs 
take almost 20 seconds to display (it 
would be faster to list the directory the 
usual way, load the program, and run). 
I wrote a short machine-language rou- 
tine to speed things up: 50 programs 
take about five seconds to display. The 
program stores the machine-language 
routine in the second cassette buffer 
and opens the directory after the drive 
number has been selected. Two strings, 
one for the header and one for the 
filenames, are pre-extended and filled 
with 17 spaces. 

The machine-language program 
reads each directory entry and stores 
the filename in the pre-extended string. 
If the filename is a program, the "p" is 
stored in the 17th character of the 
string. BASIC regains control and 
stores the program name in an array. 
Then the machine-language routine 
gets the next filename. This looping 
continues until all the entries are read, 
then the directory is displayed. 

The Directory Menu program can 
be stored as the first program on a disk. 
If you type 'LOAD"*",8' and "RUN" 
the program will execute. The other 
programs on the disk could be modified 
to chain back to the directory program 
at the end of their execution. Inex- 
perienced users will find this arrange- 
ment especially useful because it 

62 



allows them to run programs on a disk 

without having to leam and remember 

many disk commands or program names. 

Be sure to save the program before 



using it for the first time. There are two 
reasons for this. First, you may make an 
error in entering the machine-language 
data statements, which could destroy 



END 



1@ P0KE53288,6sP0KE532Sl,l 

28 PRINT'OB" 

100 DIM F*<224> 

lie REM ~ POKE 111- ROUTINE — 

Uo FfiP v-esa TO *>58: READ 2: POKE X,Z: CS=CS+Zs NEXT 

l!S IF C&OlLS THEN PRINT "OflERROR - CHECK DATA STATEMENTS.. 

156 REM ~ READ DIRECTORS ~ 

160 PRINT TflE<12>"a DIRECTORY MENU S5IH" 

170 PRINT "DRIVE * 8BBBI".?! INPUT 0* 

180 P=VAL<D*>: IF 0*0 "0" AND D*0"1" THEN 160 

19© 0PEN1S,3,15 

200 PRINT#15,"I"+D*« OOSUB 290 

|i| ™-*'*'"*" +D * ! 6 ° S ^,,?f svs 8*0, REM X? SPACES - READ HEWING 

230 IF ST THEN CLOSE! . **%*** ££%*?„* 17 SPflC E S - READ FILENAME 

250 IF~RIOHT«<F»,i>— P» THEN C-C+U F*<C>=LEFT*<F*,16> 

260 GOTO 230 

2?0 : 

2S0 REM — DISK ERROR ROUTINE — 

290 INPUT#15,EH,EM*,ET,ES S IF EN-0 THEN RETURN 

308 PRINT ENjEM*;ET.:ES 

310 CL0SE1: CLOSEISs END 

328 8 

SS T^iolTJflH^U: F-C. IF O40 THEN F=48: GOTO 368 

358 IF OF THEN S=S + 28: F-Ct IF OS+2B THEN F=S*1* 

378 PRINT "OSPRIVE #jS";D>"0>ISK NAMEsB ">H*"a" 

3S0 FOR X=S TO S+19 

396 L=L+1 

395 IFLEH<F*<X>>=8THEN420 

488 IFASC<F*<X>>»32THEN420 , UM ,„=-s ... " ,F*,"0 

410 PRINT «fl»RIGHT*<8TR*<X>,2>"B">CHR*<95>j" j>F*',.<> 

420 NEXT 

448 PRINT »■ ENTER, <BET> FOR NEXT PAGE C- TO END B" 

450 PRINT TABW'fl SELECT PROGRAM ■">: INPUT©* 

588 IF G*="0!" THEN PRINT «3": r .-<D 

518 0=VAL<G*>s IF 0=8 THEN 340 

550 REM — CHAIN — 

I70 IF = "GHT*<F*,1>- " THEN F*=LEFT*<F*,LEN<F*>-n t GOTO 578 

580 PRINT "^0»D"^HR*C34> + D* : " : " : F* : CHR r 34> : " ,8" 

590 PRINT "HflSS : " , +CHR*<34>+"3"+CHR*'.34>+" JRUN 

688 POKE 63~iP0KE 632,13:P0KE 633,I3iP0KE 198,3 

618 END 

870 REM — ML ROUTINE DATA — 

SS0 DATA 162,1, 32- 19e,2S5,l«, 1,1^,71*13* 

aofi DATA 9<*,280,l??,f , l,133,l«8,lb2,32,32,287 

He DATA 2 5S :i02,224,2f,288,24 S ,32,207,255,281 

91© DATA 34, 248, 3. 282,208,246, 248, «i9, 168,0 

928 DATA 32,207,255,201,34,248,5,145,99,280 

938 DATA 208,244,32,287,255.248,10,281,38,208 

III DATA 247,168,16:145,99,288,241,32.204,255 

958 DATA 96 
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Listing 2 


















a************************************ 










* 


MENU DIRECTORY 




,. * 










• 

* 


BY AL KOROSTYNSK] 




« 










***»******»*»*****«**»*»**»** 












START 














* EQUATES 














QUOTE 


EQU $22 


0037 


038F F005 


BEQ 


NEXT 






VARPTR 


GEQU $47 


0038 


0391 CA 


DEX 








FPACC 


GEQU $63 


0039 


0392 D0F6 


BNE 


AGAIN 






IOSET 


EQU $FFC6 


0040 


0394 F01D 


BEQ 


DONE 






IORSTOR 


EQU $FFCC 


0041 


0396 AOOO NEXT LDY 


#$00 






GETCHAR 


EQU $FFCF 


0042 


0398 20CFFF L00P1 JSR 


GETCHAR 










0043 


039B C922 


CMP 


#QUOTE 








ORG $370 


0044 


039D F005 


BEQ 


AGAIN1 










0045 


039F 9163 


STA 


(FPACC) ,Y 










0046 


03A1 C8 


INY 




0022 


0370 A201 


BEGIN 


LDX #$01 


0047 


03A2 D0F4 


BNE 


LO0P1 


0023 


0372 20C6FF 




JSR IOSET 


0048 


03A4 20CFFF AGAIN1 JSR 


GETCHAR 


0024 


0375 A001 




LDY #$01 


0049 


03A7 FOOA 


BEQ 


DONE 


0025 


0377 B147 




LDA (VARPTR), Y 


0050 


03A9 C950 


CMP 


#$50 


0026 


0379 8563 




STA FPACC 


0051 


03AB D0F7 


BNE 


AGAIN1 


0027 


037B C8 




INY 


0052 


03AD A010 


LDY 


#$10 


0028 


037C B147 




LDA (VARPTR), Y 


0053 


03AF 9163 


STA 


(FPACC), Y 


0029 


037E 8564 




STA FPACC+1 


0054 


03B1 D0F1 


BNE 


AGAIN1 


0030 


0380 A220 




LDX #$20 


0055 


03B3 20CC-FF DONE JSR 


IORSTOR 


0031 


0382 20CFFF 


LOOP 


JSR GETCHAR 


0056 


03B6 60 


RTS 




0032 


0385 CA 




DEX 










0033 


0386 E01B 




CPX #$1B 






END 




0034 


0388 D0F8 




BNE LOOP 










0035 


038A 20CFFF 


AGAIN 


JSR GETCKAR 










0036 


038D C922 




CMP #QU0TE 











your work. Second, when the menu 
program is running, it is overwritten as 
you chain to your first program. 

The machine-language routine 
loads into the second cassette buffer. 
The routine is fully relocatable, so if 
there is a conflict store it elsewhere. 

To run the program, enter the drive 
number (0 or 1). The program takes a 
few seconds to read the directory and 
then it will display the program names 
on the disk. If there are more than 20 
names, pressing return will list the 
next page. All pages may be viewed in 
this fashion and the pages will wrap 
around to the first page after the last 
page is displayed. To end the program, 
press "@". To make a selection, enter 
the appropriate number and press return. 

Note that while the program will 
display only program names and not se- 
quential or relative filenames, some 
files are stored as program file-types, 
such as Word-Pro, machine language, 
and other files. Care must be taken not 
to select them from the menu. 



C64-FORTH 
for the Commodore 64 

FORTH SOFTWARE FOR THE COMMODORE 64 
C64-FORTH (TM) for the Commodore 64 - $99.95 

• Fig Forth-79 implementation with extensions 
» Full feature screen editor and macro assembler 
e Trace feature for easy debugging 

• 320x200, 2 color bit mapped graphics 

• 16 color sprite and character graphics 

• Compatible with VIC peripherals including disks, data set, modem, 
printer and cartridges 

• Extensive 144 page manual with examples and application screens 

• "SAVETURNKEY" normally allows application program distribution 
without licensing or royalties 

C64-XTEND (TM) FORTH Extension for C64-FORTH - $59.95 

(Requires original C64-FORTH copy) 
o Fully compatible floating point package including arithmetic, 
relational, logical and transcendental functions 

• Floating point range of 1E+38 to 2E-39 

• String extensions including LEFTS, RIGHT$, and MID$ 

• BCD functions for lOdigit numbers including multiply, divide, and 
percentage. BCD numbers may by used for DOLL AR.CENTS 
calculations without the round-off error inherent in BASIC real 
numbers. 

• Special words are provided for inputting and outputting 
DOLLAR.CENTS values 

• Detailed manual with examples and applications screens 

(Commodore 64 is a trademark of Commodore) 

TO ORDER- Specify disk or cassette version 

- Check, money order, bank card, COD's add $1.50 

- Add $4.0 postage and handling in USA and Canada 
• Mass. orders add 5% sales tax 

- Foreign orders add 20% shipping and handling 

- Dealer inquiries welcome 

PERFORMANCE MICRO PRODUCTS 

770 Dedham Street. S-2 

Canton, MA 02021 

(617) 828«*209 



COMPILE 
ATARI BASIC 

AH® LYI 




With ABC™, Monarch's 1 new BASIC 
compiler for ATARI 400*® and 800, you 
develop and debug pro- 1 grams using 
your ATARI BASIC car- JFtridge, then 
use ABC to transform » them into 
compact code that runs%up to 12 
times faster, without the ^cartridge 
(and protects your source^code, too). 
40K and disk required, jm For your ABC 
diskette and manual,. ^send check or 
money order for ^P^ $69.95 (or $9.95 for 
manual alone), w Monarch Data Systems 
^^RO. Box 207, Cochituate 
~MA 01778, (617) 877-3457. 




■ Mastercard/Visa by phone. Dealer 
1 inquiries invfted. Mass. residents add 
\ 5% sales tax. ATARI, ATARI 400, and 
%|ATARt 800 are trademarks of ATARI, Inc. 
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zAtari 








by Jerry White 
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MICRO 



I or a directory menu on the Atari 
I all you need are your DOS master 
disk, a blank disk, and the two 
short BASIC programs that follow. If 
you don't remember a program name, 
you can give BASIC the command 
"DOS", then use option "A" to 
display your disk's directory file. DOS 
also provides a Binary Load option 5or 
loading machine-language programs. 
To load a BASIC program, it is a fairly 
simple matter to use the "B" option to 
get back to BASIC, then the BASIC 
"LOAD" or "RUN" commands. 

Begin by inserting your Atari BASIC 
cartridge, then boot your computer 
with your DOS master disk in disk 
drive 1. At the "READY" prompt, type 
"DOS" and RETURN. Remove your 
DOS master and insert your blank disk. 
Type "I" and RETURN to tell DOS 
that you want to format a disk, then 
type "Y" and RETURN to format. 
Once you have a formatted disk, use 
DOS option "H" to write DOS files, 
then return to BASIC using DOS op- 
tion "B". 

When you boot using Atari's DOS 
2.0S, the computer reads the DOS.SYS 
file first, then looks to see if there is a 
file named "AUTORUN.SYS" on the 
disk. If so, it loads AUTORUN.SYS and 
executes its instructions. To tell the 
computer to RUN a program called 
"MENU", type in the "MAKEAUTO" 
program. Before running any untested 
program, make sure you save it on a 
disk just in case something goes wrong. 
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Type in the MAKEAUTO program ex- 
actly as you see it printed, then save it 
using the immediate mode BASIC com- 
mand SAVE"D:MAKEAUTO". 

Now type "RUN" and RETURN to 
create your AUTORUN.SYS file. You 
will be instructed to insert your disk in 
drive 1, then press the START button 
to begin. If all went well, your AUTO- 
RUN.SYS file will be written onto the 
disk within a few seconds, and you will 
see the message BASIC IS READY. 

Before you begin to type in the 
"MENU" program, type "NEW" and 
RETURN to remove the MAKEAUTO 
program from your computer's 
memory. 

I used some of Atari's graphic char- 
acters and some inverse video letters in 
the MENU program. In line 140, the 
straight vertical line character is 
entered by holding the SHIFT key 
while typing the " = " or down-arrow 
key. The characters within quotes in 
line 280 are entered by holding the 
CTRL key while typing the "Q" key, 



zz^far/; 



the "R" key 33 times, then the "E" 
key. Similarly, the characters within 
q:xoteo in line 550 are entered by 
holding the CTRL key while typing the 
"Z" key, the "R" key 33 times, then 
the "C" key. 

Use inverse video to enter the word 
"RETURN" in line 290, the word 
"SELECTION" in line 310, and the 
words "NUMBER" and "RETURN" in 
line 540. 

When you have finished typing in 
the MENU program, save it on your 
disk using the immediate mode com- 
mand, SAVE"D:MENU". 

New go back to DOS and copy a few 
of your BASIC or machine-language 
programs onto this disk using DOS op- 
tion ' 'O". At this point, if you typed in 



the MAKEAUTO and MENU programs 
correctly and followed the preceeding 
instructions, you are ready to begin 
using your new automated system. Just 
turn off your computes: and turn it on 
again. DOS.SYS should load, then turn 
over control to AUTORUN.SYS, which 
will run the MENU program. 

MENU will display the contents of 
your disk (up to 34 files) excluding 
DUP.SYS and AUTORUN.SYS. All you 
have to do now is type your selection 
number and RETURN. Isn't automa- 
tion wonderful? 



Listing 1 



1 REM MAKEAUTO by Jerry White 

2 REM version date 4/12/82 

10 GRAPHICS 0:P0KE 82,2:P0KE 83,39:P0KE 752,1 

20 ? :? "INSERT DESTINATION DISK IN DRIVE 1" 

30 JU "PRESS START TO CREATE AUTORUN.SYS.": POKE 53279,8 

40 IF PEEK(53279) < >6 THEN 40 

50 ? :? "CREATING AUTORUN.SYS TO RUN MENU » 

60 TRAP 300:CLOSE #t:0PEN #1,8,0, »D:AUT0RUN SYS" 

70 TRAP 400:F0R BYTE=1 TO 148:READ IT: 

PUT #1, IMPOSITION 17,10:? BYTE; .-NEXT BYTE 
80 CLOSE #1:P0KE 752,0:? :? :? -BASIC":? "IS";:END 
100 DATA 255,255,0,6,133,6,162,0,189,26 

110 DATA 3,201,69,240,5,232,232,232,208,244 

120 DATA 232,142,105,6,189,26,3,133,205,169 

130 DATA 107,157,26,3,232,189,26,3,133,206 

140 DATA 169,6,157,26,3,160,0,162,16,177 

150 DATA 205,153,107,6,200,202,208,247,169,67 

160 DATA 141,111,6,169,6,141,112,6,169,10 

170 DATA 141,106,6,96,172,106,6,48,9,185 

180 DATA 123,6,206,106,6,160,1,96,138,72 

190 DATA 174,105,6,165,205,157,26,3,232,165 

200 DATA 206,157,26,3,104,170,169,155,160,1 

210 DATA 96,0,0,0,0,0,0,0,0,0 

220 DATA 0,0,0,0,0,76,0,0,0,34 

230 DATA 85,78,69,77,58,68,34,78,85,82 
240 DATA 255,255,226,2,227,2,0,6 

300 ? :? :? "UNABLE TO OPEN AUTORUN.SYS FILE." -GOTO 80 
:? :? "UNABLE TO READ BYTE #»;BYTE;« OF 148 » 
"FIX PROGRAM DATA THEN RERUN.": GOTO 80 



400 ? 
410 1 



Listing 2 

100 GOTO 480: REM MENU by Jerry White 

110 REM version date A/12/83 

120 IF DREC$(4,8)=" FREE" THEN GOTO 240 

130 NUM=NUM+l:W0RK$»DREC$(3,10):W0RK$(9,9)a" "• 
W0RK$(10,12)=DREC$(11,13) 

140 LINE$="| ":LINE$(LEN(LINE$)+1)=W0RK$: 
DISK$(LEN(DISK$)+1)=W0RK$ 

150 LINE$(14,14)="(": JW=USR(1536,ADR(LINE$)) :NUM$=STR$(NUM) 

So StS <10 THEN ^( 2 ' 2 )=^^1):NUM$(1,1)="8» ( ^ 

180 TRAP 280: INPUT £L,DREC$ 

190 IF DREC$(3,5)="DUP" OR DREC$(3,5)="AUT" THEN 180 

200 G0SUB 120:? LINE$;NUM$;») »; 

210 TRAP 240: INPUT #1,DREC$ 

220 IF DREC$(3,5)="DUP" OR DREC$(3,5)""AUT" THEN GOTO 210 

230 G0SUB 120:? LINE$(2,l4);NUM$ ") | ":G0T0 180 

240 IF NUM=0 THEN 280 ' 

250 POSITION 36,(NUM/2)+2:? "I" 

260 POSITION 2,(NUM/2)+3:? "I » 

270 POSITION 36,(NUM/2)+3:' «|« 

280 1 " ■ 

cou ' »Mrnnmi«mi.i«(ii.iri..,,„— „- rr m — rm li mm w(ll , , | I! 

290 ? » TYPE AND RETURN TO RESTART": CLOSE #1 

300 P0KS 752,1:P0SITI0N 1,23:? » "; POSITION 10 22-? BLANK* 

310 POSITION 1,22:P0KE 752,0:? BLANKS °- SE^IOnT 

320 POKE 764,255:TRAP 300:INPUT SEL.-P0KE 752 1-? " "• 

330 IF SELOIKT(SEL) THEN GOTO 300 

3340 IF NOT SEL THEN RUN 

350 IF SEL=1 THEN W0RK$=DISK$(1,12):G0T0 380 

360 W0RK$=DISK$( (SEL-l)*12+l, (SEL-l)*12+12) 

370 IF W0RK$(10,10)=« » THEN W0RK$=W0RK$(l,8) 

380 IF W0RK$(1,4)=«MENU» THEN *<-JN 

390 IF W0RK$(1,3)="D0S" THEN DOS 

400 DREC$="":F0R STP=1 TO LEN(W0RK$): 

IF W0RK$(STP,STP)=« " THEN 420 
410 DREC$(LEN(DREC$)+1)=W0RK$(STP,STP) 
2™ ^ S TP:W0RK$=DREC$:P0SITI0N 17,22:? BLANK$(1,12) 
430 DREC$="D:":DREC$(LEN(DREC$)+1)=W0RK$ 
440 POSITION 1,22:? BLANK$(1, 10); "LOADING ".-WORKS: 

CLOSE §3: TRAP 450: RUN DREC$ 
450 TRAP 460:CL0SE iSH:0PEN #l,4,0,DRECfc-JW=USR(5576) 

JK ^™ I l I ,° N 4 ' 22!? " l WAS mABlM T0 RUN THAT PROGRAM" 

470 FOR JW=100 TO 255:SOUND 0,JW,10,JW/50:NEXT JW:RUN 

480 GRAPHICS 0.-CL0SE #3:0PEN #3,12,0, »S:»-P0KE 559 

490 POKE 752,l:P0KE S2,2:P0KE 83,39:P0KE 16,64-POKE 53774 115 

500 POKE 710,160:POKE 709, 13: POSITION 9,0: ? "MENU^y 2y Site" 

510 DIM BLANK$(28):BLANK$=" ":BLANK$(28 =» »:Sk$(2)-bSnS 

5 5 50° SSn £*? ,7- PEPH0GRAM Mmm ™ m RETURN " 



560 FOR ME^O TO 24.-READ IT.-P0KE 1536^2,IT. 

NEXT ME:P0KE 559,34:GOTO 180 
570 DATA 104,104,133,206,104,133,205",160,0,177,205 
580 DATA ?01,32,208,4, 1 69,46,l45,205,20?;i92;l3?20 8 ,24l,96 
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A Graphics Notepad aHows the user to 
interactively construct images through 
simple keyboard commands. This arti$Se 
describes a minimal Graphics Notepad 
implemented on the Atari 800, written in 
APX fig-FORTH, V1.1. 



Graphics Notepad is a computer environment where 
graphic images may be interactively drawn under 
^control of "English-like" commands ryped on a 
"notepad." A typical implementation of a Graphics 
Notepad allows a video device (CRT or RF modulated 
television) to create two windows on the video screen. 
One window serves as the workspace for the graphic im- 
ages; the second window forms the notepad. Commands 
written on the notepad are executed by the Graphics 
Notepad software. Any graphic results of the commands 
are dispkyed in the graphics workspace. 

This article discusses a Graphics Notepad for the Atari 
800. The Graphics Notepad implementation uses Atari 
raphics mode 8 (GR.8), APX fig-FORTH, and an Epson 
ivIX-80 F/T printer with GRAPHTRAX firmware. Since a 
Graphics Notepad environment is constantly expanding 
and growing with the user, the FORTH words defined in 
this article represent only a beginning. The ?iltimate 
capability of a Graphics Notepad is limited only by the im- 
agination of the iiser. 



Atari 800 Graphics Notepad Implementation 

The Atari graphics modes 6, 7, and 8 are well-designed 
to implement a simple Graphics Notepad. This article will 
deal only with graphics mode 8 (GR.8), but the principles 
could be extended to cover the other graphics modes as 
well. GR.8 gives the user a graphic workspace of 160 dots 
vertically by 320 dots horizontally and creates a four-line 
notepad for communication with the Graphics Notepad 
software. The Atari Operating System (OS) currently 
allows the application software or language to plot points, 
draw lines, and fill areas of the graphic image. This small 
set of OS primitives relieves some of the software burden 
for high-level graphic commands. 



The omission of high-level graphic commands may be 
corrected by software extensibility. The Graphics Notepad 
software or language should allow new primitives to be 
defined and easily used. This is where a language such as 
BASIC has difficulty. FORTH, on the other hand, is ex- 
plicitly designed for extensibility and is used in this 
Graphics Notepad implementation. With FORTH, graphic 
images may be defined and used to build more complex 
images. While, in principle, BASIC can provide exten- 
sibility via subroutines, FORTH words are a far superior 
mechanism for software extension. 

Finally, the Epson MX-80 printer is used to print the 
graphics workspace. This printer yields a 2.25-inch by 
5.25-inch image, which is sufficient for the Atari im- 
plementation of the Graphics Notepad. 

Software for Minimal Atari Graphics Notepad 



The software capabilities of a minimal Graphics 
Notepad are a function of how the Graphics Notepad will 
be used. There is no clear distinction between software 
that is part of the minimal Graphics Notepad and software 
that is an extension. (This .s the same problem that occurs 
when defining standard FORTH.) The words in Glossary 
1. Screens 44 through 56, bring APX fig-FORTH to what I 
consider the minimal Graphics Notepad. The user com- 
mands are described next. 

The FORTH word GTABLET initializes the Atari 
Graphics Notepad windows. GTABLET sets up the GR.8 
screen, erases any previous results, and sets the colors. 
GTABLET may be executed at any time to clean the 
graphics workspace. The user exits the Graphics Notepad 
by executing the APX fig-FORTH word, XGR. (The APX 
graphics package must be LOADed prior to LOADing the 
Graphics Notepad. ) (Continued on page 68) 
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Superior printer performance is not a fluke.. 
It evolves from analyzing printed line after, 
printed line. Taking the tim>ioJest and retest. 
After 30. years of manufacturingprelslsion - 
parts^ we know that there are nd shortcuts. " 

And so we tpok the GeminM&X'Sfici method- 
ically put it through its 120 cps pace. We . 
achieve^! a print head life of ojer 100 million 
characters with an extremely precise dot align- 
ment creating. each crisp character. 
... j So, far so good. 

Next, sophisticated performance de- 
manded versatility.,. A wide choice of . 
characteYsets, a buffer expandable gs 

to 8K, and the ability to interface 
witfrall popular personal , / 
computers. We added maoco 




-■ micro "'"-inc 
THE POWER BEHIND THE PRINTED WORD. 

Computer Peripherals Division 
2803 N.W. 12th Street. Dallas/Ft. Worth Airport, TX 75261 



instruction, giving QeminMOX the capability 
to perform up to 16 .operations with one com- 
mand. We included as standard a paper 
feed system that has a friction, and fully adjust- 
able tractor feed; Theniwe even builtm the 
dexterity lo print graphics and text on the 
same line. ' " ■■ • 

Done. " "* 

And, of course, staying the best "means 
constant reviewing and fine-tuning. Keeping 
the Gemini easy to find, easy to afford and so 
reliable it can be warranted for Up.to twice ' 
as long as its major competitors. 

- A Only the most careful 



%£ engineering has built the new 
^' hard-working Gemini-10X. 
tm You'll applaud its performance. 
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The FORTH word TEXT allows the Graphics Notepad 
user to write text directly from the keyboard onto the 
graphics workspace. TEXT uses an inverse video cursor 
under control of the arrow cursor keys for positioning the 
text. The cursor is moved horizontally, in steps of eight 
graphic dots (one full character width) and vertically, in 
single dot steps (one display line). The RETURN key may 
be used to move the cursor down by eight dots (one full 
character height). Once the cursor is properly positioned, 
the user adds the text to the graphics workspace by simply 
typing on the keyboard. The text added to the graphics 
workspace will overlap with any previous image value 
under the 8 x 8 character size. Upper-case, lower-case, and 
most graphic characters may be entered onto the graphics 
workspace. The user exits from the TEXT function by 
pressing the ESC key. 

The FORTH word LABEL behaves identically to TEXT 
except that the text added to the graphics workspace will 
overwrite any previous image value under the 8x8 
character size. TEXT is used to write on top of the graphics 
workspace, while LABEL is used to replace a part of the 
workspace with character text. 

Both TEXT and LABEL use the Atari character 
generator ROM, beginning at memory address $E000 
(decimal address 57344). This ROM defines each row of a 
character in eight consecutive bytes for a total character 
size of 8 x 8 dots. The word ASCII-> ROM translates the 
ASCII character into the beginning ROM address for that 
character. Since each GR.8 line is 40 bytes long, a 
character is put on the GR.8 screen by moving eight con- 
secutive ROM character bytes to GR.8 memory at 40-byte 
intervals (separating the character bytes by 40-byte posi- 
tions, each byte under the previous byte). 

Both TEXT and LABEL make use of the CASE state- 
ment defined by Dr. C. E. Eaker. The original CASE 
FORTH code was presented in FORTH Dimension, 
Volume n, Number 3, pp. 37-40. Only the CASE-word 
names were changed when used in the Atari Graphics 
Notepad (Screen 52). 

The FORTH word SAVE-SCREEN allows the user to 
save an intermediate version of the graphics workspace. 
Thus, if a command does not work as anticipated, the 
previously saved graphics workspace may be recovered by 
the FORTH word RESTORE-SCREEN. Note that these two 
words require a workspace buffer, WORKSPACE-BUF, of 
6400 bytes in size. Atari Systems with limited memory 
should not compile and use Screen 56. 

The FORTH word BORDER simply adds a line border 
around the graphics workspace. This command is used 
primarily with the hardcopy function to define the 
graphics workspace on the printed page. 



Hardcopy Function 

The Hardcopy function of this Graphics Notepad im- 
plementation is performed by an Epson MX-80 F/T printer 
with GRAPHTRAX firmware. APX fig-FORTH VI. 1 opens 
channel #6 to the printer for use with the words PON and 
POFF. The Atari Graphics Notepad makes use of this 
channel with the word PRINT-CHAR. Any changes made 
in updates of APX fig-FORTH will necessitate changes in 
PRINT*GHAR. Glossary 2, Screens 31 through 43, define 
68 MICRO 



the FORTH hardcopy words used in the Atari Grap- 
hics Notepad. 

The Epson printer gives high-resolution graphic output 
by allowing the user to control each dot on the page. For 
the normal graphics print mode, each 8-inch line contains 
480 dots (l/60th inch per dot) and each 10-inch page con- 
tains 720 lines (l/72nd inch per line). In the super 
graphics print mode, the horizontal dots in each line 
overlap, yielding 960 dots per 8-inch line, producing a 
generally more pleasing image. The graphics print mode is 
user-selected by the two FORTH words NORMAL and 
SUPER. The super graphics mode prints each image pixel 
(dot) twice to eliminate the horizontal spacing between 
dots. Since the vertical spacing is l/72nd of an inch, the 
super graphics printed image usually has a more solid 
appearance. 

The vertical line spacing of each print line is adjustable 
from a single dot to an 85-dot spacing, allowing printed 
lines to be overlapped or widely separated. The Atari 
Graphics Notenad uses two vertical line spacings with the 
FORTH words FAST-GRAPH and SLOW-GRAPH. FAST- 
GRAPH prints graphic lines utilizing the full available col- 
umn of eight dots and a line spacing of eight. SLOW- 
GRAPH uses a line spacing of only four and prints only the 
upper four dots of each graphic character. As a result, 
FAST-GRAPH will print the graphics workspace in 20 full 
lines (160 rows/8 dots per row), while SLOW-GRAPH 
takes 40 full lines (160 rows/4 dots per row). 

SLOW-GRAPH is included in the Graphics Notepad 
due to two problems with the Atari 850 Interface Module 
firmware. While the Epson printer is in normal or super 
graphics print mode it does not interpret the graphic 
characters as having any special meaning. Each graphic 
character is simply a bit pattern telling a specific printer 
dot to print (1) or not (0). Unfortunately, the Atari 850 firm- 
ware does not have a graphics mode. Because of this, the 
graphics character 155 ($9B = 10011011) is interpreted as 
an end-of-line character, EOL. The 850, not knowing 
about the Epson graphics modes, decides that a printer re- 
quires a carriage return (CR), 13 ($0D = 00001101), in- 
stead of the EOL and automatically converts the EOL to a 
CR. From the viewpoint of a graphic character, this 155 to 
13 conversion changes four dot values. FAST-GRAPH 
solves this problem by changing all 155 characters to 147 
($93 = 1001001 1 ) before sending the character to the Atari 
850 for printing. The 147 is incorrect by only one bit, 
which usually will not be missed. 

The second problem occurs when two consecutive car- 
riage return characters are sent to the 850. Apparently, the 
Atari printers do not like consecutive CRs, so the 850 
automatically inserts an extra space character, decimal 32 
($20 ~ 00100000), between the CRs. This can lead to very 
unusual results that are hard to correct on the Epson! 
Since <\he most common occurrence of two CRs occurs 
when asing super graphics print mode (each character is 
printed twice), PRINT-DOTS converts the first 13 to a 9 
($09 - 00001001). The 9 is again incorrect by only one 
dot, which should never be missed. However, SLOW- 
GRAPH, which prints only u*~ upper four bits of each line, 
will never be printing the 155 (EOL) or 13 (CR) characters. 
Thus, for cases when the hardcopy must be an exact 
duplicate of the graphics workspace (or all else fails), use 
SLOW-GRAPH for printing. Most of the time, FAST- 
GRAPH will be sufficient and will print in half the time. 
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There is one additional printer problem. The data link 
from the Atari 800 to the printer is a one-way link. Once 
data is sent to the printer, there is no guarantee that it 
reaches the printer without an error. Ihave found that 
with my six-foot ribbon cable, the data is occasionally 
susceptible to error. For normal listings, an error usually 
means a misspelled word. However, when transmitting 
graphics data, many strange things can, and do, happen! 
Short of improving the cable, do the following for a run- 
away Epson: 

© Abort the FAST-GRAPH or SLOW-GRAPH by pressing 

any key (other than break). 
® Turn off the EPSON to initialize some of the printer 

variables. (If the run-away printer is ejecting paper, do 

this first!) 

• Manually position the paper as needed since most 
disasters include creative paper spacing. 

® Turn on the printer. 

• Software reset the printer with the FORTH word 
RESET-EPSON. 

Although not the best solution, the above steps seem to 
work after enough tries. 

Atari Graphics Notepad Applications 

To illustrate a simple use of the Graphics Notepad, 
figures 1 through 5 were drawn with the Atari Graphics 
Notepad and printed on the Epson. The basic construction 
of each figure is discussed below. Except where noted, all 
hardcopy used the super graphic print mode and FAST- 
GRAPH printing. 

Figure 1 is a demonstration of what TEXT and LABEL 
can do with interactive text entry. The image was created 
by using the Atari 800 keyboard alone. 

Figures 2 through 5 illustrate the capability of FORTH 
to build upon images. The image word FAN was defined as: 



FAN 
320 10 DO 

2DUP 

1 ROT ROT PLOT 

1 I DRAW 
20 + LOOP 
2DROP : 



(xy~) 

( Across the screen) 

( Save a copy of x,y) 

( Plot the start) 

( Draw a line of FAN) 

( Clean up stack) 



Figure 2 was created by the commands: 

160 159 FAN BORDER SUPER FAST-GRAPH 

The word FAN-LINE was defined, based upon FAN: 



FAN-LINE 
160 39 DO 

DUP I FAN 
40 + LOOP 
DROP : 



( x --■) 

( Down the screen) 

( Draw a FAN) 

( Every 40 lines down) 

( Clean up column number) 



160 120 FAN 

BORDER SUPER FAST-GRAPH 



Figure 3 was created by the commands: 

FAN-LINE 
319 FAN-LINE 
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The lettering was added with the TEXT and LABEL 
Graphics Notepad words. For figure 4, FAN-LINE 
was modified: 

: FAN-LINE 
160 120 DO 

DUP I FAN 
5 + LOOP 
DROP; 

The Graphics Notepad "160 FAN-LINE" command 
creates the figure 4 ghostly specter with small beady 
eyes! Figure 5 is the same but with the NORMAL graphics 
print mode. 

Hopefully the figures will inspire you to build your 
own Graphics Notepad and to create new and better 
graphic worlds. At the worst, you will end up having a lot 
of fun! 



The author u,ay be contacted at 7659 West Fremont Ave., 
Littleton CO, 80123. 
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ON THE 6809 

WORTH SWITCHING FOR 



FOCUS ... on its 

SUPERIOR HARDWARE 



® 6809E Microprocessor provides 8-bit economy with 16-bit 
capabilities, position independent code and many advanced 
features 

• Commercial quality Keyboard with full UPPER/lower case 
ASCII, numeric keypad and cursor control keys 

® Two double-sided double-density mini diskettes with 

640K bytes of IBM-compatible storage 
ft 56K Bytes User RAM 

• Full Video with programmable screen formats, bit mapped 
graphics, user definable character sets, reverse video and 
hardware scrolling, plus a light pen interface 

• Full Communications support for RS-232 at 50 to 19.2K 
baud with programmable data formats 

© Built-in I/O Drivers include 6 parallel I/O ports, 3 serial I/O 
ports, 6 timers/counters, 20 mA current loop, and a 
programmable cassette interface 

FOCUS ... on its 

EXTRAORDINARY SOFTWARE 

9 Includes the popular FLEXtm Operating System - a 
standard for the 6809 (supported by many vendors. 
® Extended Floating Point Disk BASIC 

interpreted and Compiled 
9 Text Editor and Macro Assembler 
9 Full feature FleKiMon debugging monitor 

• Built-in Word Processor 

FOCUS ... on its 

VERSATILE EXPANDABILITY 

® IEEE-488 Bus Controller option for instrumentation 
® Supports multiple 8" diskette drives 

• PASCAL, FORTH and other high level programming 
languages are available 

• Complete Application Packages are available from many 
software sources 

• Add-on Hardware includes: Date/Time, Opto-isolators, 
Stepper-Motor Controller, A/D and D/A, RAM and EPROM 
Memory, and others from several manufacturers 



^ THIS IS ^ 



©9® 



ON YOUR 
APPLICATION REQUIREMENTS 



• FOCUS provides a completely Integrated system of 
hardware and software, so that you can concentrate on 
your application requirements 



FOCUS 




$7995"° 

Veay CompIetc 

34 Chelmsford Street 
Chelmsford, MA 01824 

Phone: 617/256-3649 
Telex: 955318 INTL DIV 
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Glossary 1. Minimal Atari Graphics Notepad 

ASCII->ROM (ascii — ROMaddr) Screen 46 

ASCH->ROM takes the "ascii" character and returns the Atari 
character generator ROM address, ' 'ROMaddr' ' , for that character's GR. 8 
pattern. The flag INVERSE is set to 128 if the character was in in- 
verse mode. 

BORDER (-) Screen 55 

BORDER draws a single line border around the graphics workspace. 

C-DOWN(-) Screen 49 

Move the TEXT/LABEL cursor down one display line. 

C-LEFT(-) Screen 48 

Move the TEXT/LABEL cursor left eight dots, one character width. 

C-RETURN(-) Screen 50 

Move the TEXT/LABEL cursor down eight lines, one character height. 
The cursor horizontal position is not changed. 

C-RIGHT(-) Screen 48 

Move the TEXT/LABEL cursor right eight dots, one character width. 

CUBSOR(-) Screen47 

Toggel the current TEXT/LABEL cursor by inverting the eight graphic 
bytes representing the cursor positon. This routine is used to set or clear 
the current cursor position. 

CURSOR-ADDR (— addr) Screen 45 

Compute the beginning memory address, "addr", of the TEXT/LABEL 
cursor in the graphics workspace. 

GNOTEPADI— ) Screen 44 

Initialize the Graphics Notepad. This word may also be used to erase the 
current graphics workspace. 

LABEL (-) Screen 54 

Allow the user to replace portions of the graphics workspace with text 
entered from the keyboard. Exit from LABEL with the ESC key. 

RESTORE-SCREEN (— ) Screen 56 

Restore the previously saved graphics workspace jre-quires a 6400 byte 
buffer). 

SAVE-SCREEN (-) Screen 56 

Save the current graphics workspace in a 6400 byte memory buffer. 

SHOW (ascii-) Screen 51 

Place the "ascii" character on the GR.8 graphics workspace at the cur- 
rent TEXT/LABEL cursor position. The cursor is moved one character to 
the right. 

TEXT(-) Screen 53 

Allow the user to write on top of the image in tr < graphics workspace 
with text entered directly from the keyboard. Exit from TEXT with the 
ESC key. 



Glossary 2. Epson MX-80 F/T Hardcopy 

2*.N(n-2*.n) Screen 33 

Raise 2 to the "nth" power by multiplication — change to a CODE level 
word with shift instructions if 2**N is too slow. 

850-KLUDGE (char — char) Screen 40 

Correct for the actions of the 850 Interface Module on the print stream — 
refer Jo.the- article for details: " 

BIT-SLICE (bufaddr— bitsiice) Screen 38 

Accumulate bit7 (most significant bit) of the 8 bytes starting at 
"bufaddr". This "bit slice" is used as the vertical print column in the 
Epson graphics print mode. The top of the vertical column is stored 
in bit7 of the bit slice, while the bottom dot is bitO. The 8 bytes starting 
at "bufaddr" are shifted left one bit for the next call to BIT-SLICE. 

EPSON-GRAPHICS (n-J Screen 35 

Command the Epson to accept the next "n" bytes as graphic characters. 
Each graphic character will control the 8 vertical printing pins of the 
Epson, the top being bit? and the bottom pin bitO. 

FAST-GRAPH (-) Screen 43 

Print the graphics workspace on the Epson printer, eight display lines at a 
time. Due to the 850 Interface Module, the EOL (155) and CR (13) 
characters may be modified — refer to the article for details. 

GET-DATA (memaddr-) Screen 37 

Move a vertical slice of 8 bytes from GR.8 memory to the buffer GR8- 
DATA for use by BIT-SLICE. 

INIT-UNE(-) Screen 39 

Initialize the Epson to receive graphics mode characters for a print line of 
the graphics workspace. 

NORMAL (-) Screen31 

Set the GMODE flag for normal graphics print mode, 480 dots per 8 
inch line. 

NORMAL-EPSON (-) Screen 36 

Reset the Epson line spacing to l/6th inch default. 

PRINT-CHAR (char-) Screen 32 

Output "char" to the printer using printer channel #6 (PRINTER- 
CHANNEL) which was opened by APX fig-FORTH. 

PRINT-CR(-) Screen34 

Print a carriage return on the Epson. 

PRINT-CRS(n-) Screen 34 

Print "n" carriage returns on the Epson. 

PRINT-DOTS (addr mask — addr + 40) Screen41 

Print 1 to 8 graphics workspace display lines on the Epson printer. 
"Addr" points to the start of the graphics workspace lines in memory. 
The AND "mask" is used to determine which bits will be allowed to 
print. For FAST-GRAPH, "mask" is 255 ($FF) while for SLOW-GRAPH, 
"mask" is 240 ($F0). 

PRINT-SPACE (-) Screen 34 

Print a space on the Epson. 



PRINT-SPACES (n-| Screen 34 

Print "n" spaces on the Epson. 

RESET-EPSON (-) Screen 36 

Perform a software reset of the Epson printer for "run-away" situations 
due to noise glitches, etc. 

SCREEN (-gr8base) Screen 36 

Return the beginning memory address of the graphics workspace, 
"gr8base". This word is used in both the Epson hardcopy and minimal 
Graphics Notepad application. 



SCREEN-DUMP (n-) Screen 42 

Print the contents of the graphic workspace, "n" display lines at a time. 

SETUP-EPSON (n-) , Screen 39 

Set the Epson print line to "n" rows. 

SLOW-GRAPH (-) Screen 43 

Print the graphics workspace on the Epson printer, four display lines at 
a time. 

SUPER (—) Screen 43 

Set the GMODE flag to super graphics print mode, 960 dots per 8 inch 
line. This mode allows each pixel (dot) to be printed twice and over- 
lapped, forming a more solid image. 
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The Atari Graphics Notepad 

requires: 

Atari 400/800 
Atari 810 disk drives 
32K bytes of memory. 
APX /fig-FQRTH V1.1 r Rev 1 



SCR » 34 

O C BASIC EPSON LINES ) 
1 

X z 

3 

4 

s : 

6 
7 

a : 



PRINT-CR 

155 PRINT-CHAR % 



PRINT-CRS 

© DO PRINT-CR LOOP t 



PRINT-SPACE I 

32 PRINT-CHAR 9 



lO 
11 : 
12 
13 



PRINT-SPACES < n 

O OO PRINT-SPACE UUP i 



Atari Graphics Notepad for APX fig-FORTH VI. 1, Rev 1 
by Mike Dougherty 

To LOAD both the Epson Hardcopy and the Graphics Notepads 

— 30 LOAD 

To LOAD the Atari Graphics Notepad only: 

— remove comments on SCREEN definition, Torth Screen «44 

— 44 LOAD 

To LOAD SAVE-SCREEN and RESTORE-SCREEN Crequires 6400 bytes]: 

— 56 LOAD 



CM * 33 
O { SET EPSON INTO GRAPHICS NODE 
1 
2 S EPSON-GRAPHICS 



I 3 


-DUP IF 


4 


ASCII-ESS PRINT-CHAR 


S 


GHODE 8 IF 


6 


ASCII L PRINT-CHAR 


7 


ELSE 


3 


ASCII K PRINT-CHAR 


9 


ENDIF 


lO 


256 /MODSUfiP 


11 


PRINT-CHAR 


12 


PRINT-CHAR 


13 


ENDIF { 



I n I 

t If any graphics* bytes > 

< Then init to expect graphics J 
I If super graphics mode > 

< use "<ESCM.ijT ) 

< Else normal graphics mode > 

< use "<ESC>Kij" ) 

C Mtere i=LSB, j»HSB of n > 
I Nate: i,j should not be 1S5 ) 
« * or 13 due to 8SO Inter-) 
% face Nodule I 



SCR 

1 
2 



« 31 

« EPSON WX-BO F/T HARDCOPY FOR PRINTERS WITH GRAFTRAXtTMJ ) 



6 CONSTANT PRINTER-CHANNEL 
27 CONSTANT ASCII-ESC 
O VARIABLE 6RS-DATA 6 ALLOT 
VARIABLE GMODE 



NORMAL 
O GHODE 



SUPER 

1 GHODE .' 



« APX fig-Forth printer chan ) 
( For Epson printer commands I 
* For col of "vertical" bytes > 
( Super /normal graphics mode ) 



( ) 

( Set hardcopy normal graphics I 



< > 

{ Set hardcopy super graphics > 



O { RESET FROM GRAPHICS PRINTING ) 
1 

2 : NORMAL-EPSON t 

3 ASCII-ESC PRINT-CHAR 

4 ASCII 2 PRINT-CHAR 1 
S 

6 : RESET-EPSON 

7 ASCII-ESC PRINT-CHAR 

8 ASCII e PRINT-CHAR J 
9 

10 : SCREEN 

11 106 ce 

12 2S6 • 

13 7856 - ; 
14 



( Reset the line spacing ) 
( wiih "<ESC>2" ) 



( Reset the entire Epson > 
< Hith •XESOa" ) 

C — grBbase > 

( Get current top of memory ) 

( Form 16 bit address ) 

( Backup to first of GR.8 mem > 



* 37 

( ROVE DATA TO 8 BYTE BUFFER > 



O < OUTPUT TOP OF STACK TO PRINTER ) 



PRINT-CHAR 

PRINTER-CHANNEL 

PUTC 

DROP ; 



( char -— > 

< APX fig-Forth printer chan > 

( Put a character > 

( Drop the status ! 



10 
11 
12 
13 
14 
IS 



2 : 


GET-DATA 


3 


8 O DO 


4 


DUP ce 


5 


BR8-DATA I 


6 


C! 


7 


40 + 


a 


LOOP 


9 


DROP 5 


10 




n - 


~> 


12 




13 




14 





( raemaddr > 

< For B bytes of vert slice > 

< Get a byte ) 

( Buffer addr > 

< Save whole byte > 

< Next line, 40 bytes down > 

< Clean up meaaddr > 



< RAISE 2 TO THE TOP OF THE STACK POWER > 



SCR tt 38 

< ACCUM BIT7, SHIFT BUFFER > 



2 : 


2HN 


3 


1 SNAP 


4 


-OOP IF 


5 


DO 


6 


2 • 


7 


LOOP 


8 


ENDIF t 


9 




lO - 


-> 


11 




12 





< n 2*»n ) 

< Initialize for 2«*0 > 

< If non-zero ... > 
( For n tines ) 

( Raise by a power of 2 ) 



9 2 


CODE BIT-SLICE 


3 3 


1 « LDA, SETUP JSR, 


4 


BEGIN, 


5 


CLC, 


6 


N >Y LDA, 


7 


R0L.A, 


a 


N >Y STA, 


9 


N 2 + R0L, 


10 


INY, 


n 


8 « CPY, 


1 1Z 


0* END, 


1 13 


O tt LDY, 


9 14 


N 2 + LDA, PUSHOA JMP 


i ts 


FORTH — > 



< bufaddr — oitslice ) 
( Move addr to N,M+1 > 

( For all 8 bits > 
{ To clear buffer > 

< Get buffer byte > 

< Put bit7 into car-« > 

< Save shifted result , 

< Put carry into result J 
I Next buffer byte > 

< All 8 ? > 
( Not yet > 

( Yes, reset y rag ) 

( Exit with N+2 on stack > 
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SCR • 


39 


O 1 
1 

2 : 


INITIALIZE > 


SETUP-EPSON 


3 


10 PRINT-CRS 


4 


ASCII-ESC PRINT-CHAR 


s 


ASCII A PRINT-CHAR 


6 

7 

8 : 


PRINT-CHAR 1 


INIT-LINE 


9 


13 PRINT-SPACES 


10 


6HDOE « 5F 


11 


640 EPSON-BRAPHICS 


12 


ELSE 


13 


320 EPSON-GRAPHICS 


14 


ENDIF I 



( Space down the paper > 
( Sat lino spacing to n dots ) 
, < with "^ESOAn" J 



< > 

f Space over the paper > 
( If super graphics eode ) 

< Epsen will get -640 char/tine ) 
( Normal graphics eode > 

( Eftsan will gat 320 char/Sine 1 



SCR * 40 

O « GRAPHICS KLUDGE DUE TO 850 INTERFACE MODULE FIRMWARE ) 



zAtarh. 



SCR * 


44 


o.< 
1 
2 : 


MINIMAL GRAPHICS TA 


8N0TEPAD 


3 


'8 BR. 


-•-4 ■ 


SCREEN 6400 ERASE 


•" S 


10 SETCOLOR 


"6 


2 9 3 SETCOLOR 


7 


4 6 1 SETCOLOR { 


8 




9 




10 < 


: SCREEN ) 


11 < 


106 ca j 


12 < 


256 * > 


13 < 


7856 - | 1 



« Initialize mode«B graphics J 
( Erase the graphics workspace 
t Set the video colors ) 
I Change according to personal 
< taste. ) 



C Remove comments if LOADing > 
« The Atari Sraphics Notepad } 
< only — else leave co — w an ted > 
t out of the Forth LOAD > 



• 4S 

< PUT CHARACTERS ONTO 8R.8 SCREEN USINB ATARI CHAR ROH > 



2 

3 

4 

S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 



850-M.UDBE 
OUP 1SS » IF 

DROP 147 
ENDIF 
6H0DE 8 IF 

OUP 

OUP 13 « IF 
DROP 9 

ENDIF 

PRINT-CHAR 
ENDIF 5 



< char ~ char ) 

( If char is Atari EOL ) 

< Convert, else 850 makes CR ) 
( 147 is better than 13 » 

< I* in super graphics eode > 

{ Each character printed twice > 
{ But 2 CRs, 8SO inserts space » 
( So conver CR to OOOOlOOl ) 

< 9 is close, no added 420 ) 
( Output char twice ) 



SCR « 41 


O < 

1 

2 : 


PRINT A LINE OF DOTS > 


PRINT-DOTS 


3 


IMXT-LINE 


4 


40 O DO 


5 


OVER SET-DATA 


6 


8 DO 


7 


8R8-DATA BIT-SLICE 


8 


OVER AND 


9 


"830-ia.UDOE 


io 


PRINT-CHAR 


11 


LOOP 


12 


SNAP 1+ SNAP 


13 


LOOP 


14 


DROP 


15 


PRINT-CR I — > 



4 addr mack — — addr+40 ) 
( Set up line spacing, graph ) 
( For 40 bytes of display mem > 
( Bet 8 columns of data > 

< For dots in each column > 

( Bet the vertical bit slice J 
( Keep oasfc bits of data ) 
( Correct for 850, do 6M0DE ) 
( Output graphics column > 

< All 8 vertical columns > 
( Next 8 columns 1 

(All across the screen row > 

< Drop mask, leave addr+40 > 
( Move to a new line ) 



SCR « 


42 


( 


DUMP A SRAPHICS 8 SCREEN 


i : 


SCREEN-DUMP 


2 


DUP SETUP-EPSON 


3 


SCREEN 


4 


OVER 160 SNAP / 


S 


O DO 


6 


OVER MINUS 8 + 2*«N 


7 


MINUS 256 + 


a 


PRINT-DOTS 


9 


OVER 1 - 40 • + 


10 


7TERMINAL IF 


11 


KEY DROP LEAVE 


12 


ENDIF 


13 


LOOP 


14 


2DR0P 


15 


NORMAL-EPSON I — > 



< n > 

< Set Epson to n dots/line » 

« Bet the start of 6R.B asu > 

< « of n dot lines to print > 
( For each line of n dots i 

< Fore bi«s4ftas!c for n dots > 

< as 2S6 - 2**C8-nJ t 

( Print the dots not masked > 
( Update BR. 8 address J 

< If any key is pressed > 

< Got a ignore key, abort loop ) 

( For all n dot lines t 

< Clean up n,addr ) 

( Reset printer to normal mode 



oCR * 43 

< BASIC SCREEN DUMP NODES 



2 
3 
4 
5 
6 
7 
8 —> 



10 



FAST-BRAPH 

8 SCREEN-DUMP i 



SLOW-GRAPH 

4 SCREEN-DUMP ( 



C Print 6RB screen 8 rows/line > 

< > 

( Print 6RB screen 4 rows/line ) 



VARIABLE CURSOR-X 
VARIABLE CURSOR-V 
VARIABLE INVERSE 
VARIABLE TEXT/LABEL 

: CURSOR-ADDR 
SCREEN 

CURSOR-V 8 40 » + 
CURSOR-X e «• 1 



( X position on screen > 
C Y position on screen > 

< Inverse character flag > 

( Flag to use different modes ) 

( aadr } 

t Set base addr of screen > 
( Add for line position > 

< Add for col position > 



SCR 8 46 

< ASCII VALUE TO CHARACTER GENERATOR ROM ADDRESS i 

1 

2 57344 CONSTANT CHAR-ROM 

3 

4 : ASCII->R0M 



( Atari char ROM at CEO00 ) 



5 


DUP 128 AND INVERSE 


6 


127 AND 


7 


OUP 32 < IF 


8 


64 + 


9 


ELSE 


10 


DUP 96 < IF "-" 


11 


32 - 


12 


ENDIF . 


13 


ENDIF 


14 


8 • 


IS 


CHAR-ROM * I 



( key — — addr > 

( Isolate inverse flag > 

( Strip any inverse value 1 

< If control character > 
( Nap into 64-95 > 

( Not control character > 

< If uppercase ) 

< Nap into 0-63 > 

< Else leave value 96-12?) 

< 8 bytes per char t 
( Add base address > 



SCR 




« 47 

< TOSSEL TEXT/LABEL CURSOR ON/OFF J 



S CURSOR 
8 DO 

CURSOR-ADDR I 40 « 

DUP ca 
255 XOR 
SNAP C! 
LOOP } 



> 



< For all B lines*of char » 

( Bet address of graph cursor ) 

(Bet graphics byte ) 

( Invert value ) 

( Set back in memory » 



—> 



SCR • 


4B 


« 

1 

2 : 


TEXT/LABEL CURSOR MOVEMENT 


C-RIBHT 


3 


CURSOR 


4 


CURSOR-X 8 1+ 


5 


DUP 39 > IF DROP ENDIF 


6 


CURSOR-X ! 


7 


CURSOR I 


a 




9 : 


C-LEFT 


10 


CURSOR 


n 


CURSOR-X 8 1- 


12 


DUP O < IF DROP 39 ENDIF 


13 


CURSOR-X ! 


14 


CURSOR | 



< — > 

< Toggel cursor to original > 
( Move to the right 1 char ) 

( Wraparound if necessary 1 

< Save new position ) 

( Set the new cursor position > 

< > 

( Toggel cursor to original i 

< Hove to the left 1 char ) 
( Wraparound if necessary ) 

< Bave new position > 

( Set the' new cursor position J 



L 



. 
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Th« ( Assembl < eludes 
unlimited length labels, field 
programming, t^p-pj#s Mfi j#*disk-based 
asssembly, ten-c< tor, 

interactive operation, tutorigl manual, 
and demonstration routines; APPLE II +, 
48K, DOS 3.3 required. Send $20.00 plus 
$4.00 P&H to: Thunder Software, P.O. 
Box 31501, Houston, TX 77231, 
(713) 728-5501. 

Payroll Compatible with 64K Apple 
computers. Features: 100 employees per 
disk, time-card adding, automatic 
overtime, user-changeable tax: tables, five 
miscellaneous deductions ~ fixed or 
percentage amounts, tips, automatic 
printing of checks, W-2 forms, and 
reports. Bill Martin, 6485 Diana Drive 
#2, Poland, OH 44514, (216) 757-2143. 

Digltlzor/Graphlcs Tail®! the 

HELPING HAND — more than just a 
drawing device. More versatile than 
paddles or joysticks. Drawing board is 
16" x 20" and includes two function 
keys. Connects to the 9-pin gsae port of 
VIO20, C64, Atari, TI, etc. $44.50. 
Persimmon Peripherals, Route 2, Box 
2306A-MI, Claytin, GA 3052& 

Peripherals for the VlC-asisnd C64 
Light pen model BR2064, very accurate 
readings in vertical andisrizoatal, push- 
button switch, excellent documentation 
and software listings included. $26.95. 
5 IK plus expansion memory expands 
VIC-20 to 56K RAM, assembled and 
tested. Excellent documentation. 
$140.00. Miami Valley Micro Systems, 
3341 Sheffield Rd., West Carrollton, 
OH 45449. 

OS! — Affordable DB§i s&w File 

Master runs under OS65D V3.3. 32K 
RAM minimum. Features: user and/or 
predefined files w/codes, iormatted 
viewing and inputting, find, edit, delete, 
and page. Multiple dumps. Only $55.00. 
Label printer add $25.00, report generator 
add $25.00, manual only $10.00. For 
more information contact; Sunin & 
Ward Computer Services, flO. Box 895, 
Church Street Sta., New Ymk, NY 
10008, (212) 434-5760. 
VIC-20 Plug-Ins Reset Switch, uses the 
serial port — $5.00. Amplifier Adapter 
Cable, uses the audio/ videe port — 
$10.00. Send check or money order to: 
DLW Co., Box 485, Cupertino, CA 
95015. 

Attention Software Vendors Expand 

your market! Your BASIC programs, 8K 
or smaller, will run on OSfOP, or C4P. 
I will translate your program for 
either/both machines on a fee baais. 
Bruce Showalter, 857 Cedar, Abilene, TX 
79601. 

Apple Software Learn Applesoft 
programming, use of the disk drive, 
graphics, etc. Each learning package 
includes two disks and instructional 
tutorial manual. The Apple's Core — 
$49.95. Part H: The Seed — $59.95. Free 
brochure. The Professor, PiO. Box 30 1M, 
Swanton, VT 05488, (514] 747-9130. 

INCftO 



'Atari: 



49 

TEXT/LABEL CURSOR MOVEMENT ) 

C-UP 
CURSOR 

CURSOR-Y 8 1- 
DUP O < IF DROP 132 ENDIF 
CURSOR-Y ! 
CURSOR | 



S C-DOWN 

CURSOR 

CURSOR-Y 8 1+ 

DUP 1S2 > IF DROP O END IF 

CURSOR-Y « 

CURSOR | 
— > * 



( ) 

< Toggel cursor to original ) 
( Hove up on* display line > 

t Wraparound if necessary > 

< Save the new position > 

< Set the new cursor position I 

< ) 

< ToggeJl cursor to original > 

( Move down one display line > 
( Wraparound i-f necessary > 
t Save the new position > 

< Set the new cursor position ) 



# SO 

C TEXT/LABEL CURSOR MOVEMENT > 

S C-RETURN 
CURSOR 

CURSOR-Y 8 S + 
BUP 1S2 > IF DROP O HfeSXF 
CURSOR-Y ! 
CURSOR | 

— > 



< > 

< Turn off current cursor > 

£ Move down 8 rows ) 

C Wrap around i 

i Save new value ) 

C Turn en current cursor > 



SCR * Si 

i PUT ATARI CHAR ON GRAPHICS 8 

1 £ SHOW 

2 ASCII->ROM CURSQR-ADDR 

3 8 O DO 

4 OVER 1 + ce 

5 INVERSE 8 IF 

6 2SS XOR 

7 ENDIF 

8 TEXT/LABEL @ IF 

9 OVER I 40 * + C@ 

10 255 XOR OR 

11 ENDIF 

12 OVER I 40 « + C! 

13 LOOP 

14 DROP DROP 

15 CURSOR C-RIGHT ! — > 



SCREEN ) 
i ascii - — ) 

( Set ROM and cursor addr ) 
I For all 8 char lines > 
( Set a display byte > 

< If INVERSE flag on > 
C Invert screen data > 

< If TEXT mode > 

( Set the current video line ) 
( Remove cursor, add ROM line > 

< Move text char to screen ) 

( Drop ROM and screen addr > 

< Move to next video position ) 



SCR 41 52 



( 

1 < 

2 

3 : 

4 ! 
5 

& i 

7 

8 : 

9 
10 

11 

12 
13 O 
14 

15 - 



CASE STATEMENT BY DR. C. E. EAKER } 
FROM FORTH DIMENSION, VOL II, NO. 3, PP. 



37-40 ) 



DOCASE ?COMP CSP 8 !CSP 4 3 IMMEDIATE 
CASE 4 7PAIRS COMPILE OVER COMPILE ■ COMPILE OBRANCH 
HERE O , COMPILE DROP 5 ; IMMEDIATE 
ENDCASE 5 ?PAIRS COMPILE BRANCH HERE O , 
SWAP 2 CC0MPILE3 ENDIF 4 i IMMEDIATE 
ENDCASES 4 ?PAIRS COMPILE DROP 
BEGIN SP@ CSP 8 ■ 0» WHILE 
2 CCOMPILE] ENDIF REPEAT 
CSP ! S IMMEDIATE 



VARIABLE C-FLAQ 
-> 



< Stop flag -for TEXT/LABEL i 
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=Mari\ 



SCR 


# 53 


O 


< OVERLAY TEXT UNTIL <ESC> ) 


1 


I TEXT 


2 


O C-FLAB ! 1 TEXT/LABEL • 


3 


CURSOR 


4 


BEGIN 


5 


KEY DOCASE 


6 


31 CASE: C-RIGHT ENDCASE 


7 


30 CASE C-LEFT ENDCASE 


8 


28 CASE C-UP ENDCASE 


9 


Z9 CASE C-DOWN ENDCASE 


io 


27 CASE 1 C-FLAS ! ENDCASE 


1* 


155 CASE C-RETURN ENDCASE 


12 


DUP SHOW 


13 


ENDCASES 


14 


C-FLAB @ UNTIL 


IS 


CURSOR ; — > 



( — > 

< Init to no quit, set to TEXT ) 

< Initialize, the eursor > 

( Loop until <ESC> pressed ) 
<JDo case upon- Input key -> 

< .Atari /f;ighi ; a'rxo**>') ;," ' > : 
(/Atari left_'''antow;;>- '■• 

< Atari 'up?, '..arrow') ' 
(Atari down .arrow I 
( Atari ESC key J 

(Else put on screen if can ) 

( Do until ESC pressed > 

< Reset final cursor ) 



SCR # 54 

( REPLACE TEXT UNTIL <ESC> ) 
S LABEL 

© C-FLAB ! 

CURSOR 

BEGIN 

KEY DOCASE 
31 CASE 
30 CASE 

28 CASE 

29 CASE 
27 CASE 1 

155 CASE 

DUP SHOW 

ENDCASES 
C-FLA6 8 UNTIL 
CURSOR ; — > 



1 

2 

3 

4 

5 

& 

7 

8 

9 

IO 

11 

12 

13 

14 

15 



TEXT/LABEL ! 



C-RIGHT ENDCASE 
C-LEFT ENDCASE 
C-UP ENDCASE 
C-DOWN ENDCASE 
C-FLAB ! ENDCASE 
C-RETURN ENDCASE 



— > 



Init to no quit, set LABEL > 
Initialize the cursor ) 
Loop until <ESC> pressed > 
Do case, upon input key > 
Atari right arrow ) 

( Atari left arrow ) 

( Atari up arrow ) 

( Atari down arrow ) 

( Atari ESC key > 

C Else put on screen if can > 

( Do until ESC pressed ) 
C Reset final cursor ) 



SCR # 55 






( PUT A BC 


IRDER AR01 


1 






2 


: BORDER 




3 


1 


PLOT 


4 


1 319 


DRAM 


5 


1 319 


159 DRAM 


b 


1 


159 DRAM 


7 


1 


DRAM 


8 






9 


IS 




10 






11 






12 






13 






14 







( — ) 

i Start in upper left corner ) 
( Draw counter clock wise ) 



SCR # 


56 


( 

1 

2 O 


SAVE AND RESTORE SCREEN 


VARIABLE WORKSPACE-BUF 


3 




4 : 


SAVE-SCREEN 


5 


SCREEN 


6 


WORKSPACE-BUF 


7 


6400 





CMQVE ; 


9 




io : 


RESTORE-SCREEN 


li 


WORKSPACE-BUF 


12 


SCREEN 


13 


6400 


14 


CMQVE i 



15 9S 



— REQUIRES &400 BYTES ) 

6398 ALLOT < Image working space i 
« 

< » 

( From the BR. 8 screen mem J 
( To the working space > 
< 160 rows x 40 bytes each ) 
C Move the image to mem > 

( - — > 

( From the working space > 
( Ta screen memory ) 
(. 160 rows x 40 bytes each ) 
( Move the mem to image ) 
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YOUR HAMfJ®! 



o , u?MQ0JVAUZEif— 

Printed with ybur: name, club, 
anything: Paper is white 2Q# 
stock and fits ail printers 
using 9 1 /2x1 1 continuous pa- 
per [8 1 /ax1 1 when detached]. 
500 sheets $14.95, 
1000 sheets $24.93. 
We pay shipping. Texas 
orders add 5>£% tax. Select 
ink color: red, blue, brown, 
gray, or canary. Specify 
namefs] up to 30 letters & 
spaces. Enclose check or 
money order. No COD's. 
Allow 3 weeks. Faster de- 
livery with M/C, Visa phone 
orders. Write or phone 
Personalized Computer 
Paper D, Box 20539/San 
Antonio, Tx. 78220/ [512] 
227-0585. 



CP/M* 

FOR YOUR COMMODORE* C-64 




• RunAIICPM* Formated Software 

• Supports 5%" or 8* Disk Drives 

• Z-80, Disk and DMA Controller on 
interface Card 

• Plugs into the Commodore 64® Expansion 
Port 

• Uses Soft Sectored IBM 5%" and 8* Format 
Disk Drives 

Interface Card e-swriO 

wlthB-DlskDrlve 59:57 

Interface Card jtnr&Q 

with5rDlsk0rlve 49» 

Interface Card #> Ag <Qn 

without Disk Drive 34® 

• Commodore 64 is a registered trademark ol 
Commodore Business Machines, Inc. 

*CP/M is a registered trademark of Digital Research, Inc. , 

To Order 

Phone (913) 827-0629 
i^.Mrrm^ ,T,- 825 N. 5th Street 
ENGINEERING, inc. Salina, Kansas 67401 
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r 1 




61 U' 




for 1 the 
olot* Computer 

fay Steve Kronschnabel and Phil Daley 



The CoCo version of the menu 
program offers a choice of a 
directory menu or a directory 
backup onto the unused portion of 
track 17. This is helpful since TRS-80 
DOS is noted for occasionally clobber- 
ing the directory sectors and essentially 
ruining the entire disk. With this pro- 
gram it is possible to back up your 
directory whenever you want and 
restore it to its former state should a 
sector become damaged. This program 
will save up to 48 directory entries, 
enough for most full disks: you would 
have to have a great number of short 
programs to fit more than 48 on 
one disk. 

After it is determined whether you 
wish to back up the directory or run the 
menu program (line 30), lines 60-150 
read the directory and store the names 
of the entries in N$( ) and the exten- 
sions in E$( ). Lines 170-250 print out 
the directory names two across, then 
the program waits for a choice to run. 
All BASIC programs will work with 
this menu; machine-language programs 
may or may not work depending upon 
their load address. Among my collec- 
tion, EDTASM+ works, while many 
games do not. 

Lines 370-400 determine whether the 
directory is to be saved or replaced due 
to disk crash. Lines 410-430 perform a 
76 



fail-safe prompt, in case of a mistake, 
because the replace will cause a loss of 
any programs saved since the last back- 
up. Lines 470-560 do the actual work. 
The same FOR-NEXT loop is used for 
saving or replacing the information. 



This program, although simple in 
concept, works great and will save your 
sanity if your disk system crashes. 
Also, the menu program can be added 
to your disk to make it easy for begin- 
ners to choose a program to run. 



Listing 1 




10 CLEAR2000:CLS 


320 L0ADN$(A),R 


20 DIMN$(72),E§(72) 


330 LOADM N$(A)sEXEC 


30 PHINTg64,"mENU OR dlRECTORY" 


340 X$=STR$(X):X?=MID$(X$,2) 


40 A$=INKEX?:IFA$=""THEN40 


350 IFX<10THENX?="0"+X$ 


50 IFA$="D"THEN370 


360 X?=LEFT$(X?,2):RETURN 


60 CIS :PRINT@64, "reading directory" 


370 CLS5:PRINT632, "SAVING OR 


70 F0HX=3T011 


rEPLACING DIRECTORY?" J 


80 DSKI$0,17,X,A$,B$ 


380 A$*INKEY$:IFA$=""THEN380 


90 IFASC(A$)=255THENX=11:G0T0150 


390 IFA$ < > "S»ANDA$ < > "R"THEN380 


100 C$=A$+LEFT$(B$,127) 


400 IFA?="£"THEN450 


110 F0RN=0T07 


410 CLS7:PRINT§64,"ARE YOU SURE THAT YOU WANT TO 


120 N$((X-3)*8+N)=MID$(C$,N*32+l,8) 


REPLACE THE DIRECTORY?" 


130 E$( (X-3)*8+N)=MID$(C$,N*32+9,3) 


420 INPUT"yES OR nO? »;A$ 


140 NEXTN 


430 IFA$<>»Y"THENCLS:END 


150 NEXTX 


440 X1=10:X2=0:G0T0460 


160 CLS : PRINTflO , "directory" 


450 X1=0:X2=10 


170 F0RX=0T072 


460 E=0 


180 Y=Y+1:A$*"" 


470 F0RX=2T08 


190 IFASC(N$(X))=255THENX=72:G0T0250 


480 DSKI$0,17,X+X1,A$,B$ 


200 IFASC(N$(X))=0THENY=Y-1:G0TO250 


490 DSK0$0,17,X+X2,A$,B$ 


210 G0SUB340 


500 DSKI$0,17,X+X2,C$,D$ 


220 PRINTX$" "N$(X)»."E$(X)" "} 


510 DSKI$0,17,X+X1,A$,B$ 


230 IFY/28=INT(Y/28)THENPRINTe480,""j : 


520 IFC$»A$ANDD$=B$THEN560 


INPUTA$:PRINT§32,"»j 


530 E=E+1:IFE=1THEN470 


240 IFLEN(A$) O0THEN280 


540 CLS5:PRINT864,»T00 MANY READ OR WRITE ERRORS 


250 NEXT 


CANNOT CONTINUE..." 


260 PRINTe480,"»j 


550 END 


270 INPUTA$:IFiEN(A$)=0THENY=0:GOTOl60 


•360 NEXTX 


280 A=VAL(A$) 


5""0 CLS1.-END 


290 IFE$(A)="BAS"THEN320 




300 IFE$(A)=»BIN"THEN330 


jyo$0 v 


310 CLS:PRINT"CAN'T RUN THAT PROGRAM": END 
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This versatile package of 

displays moving animatec 
custom characters. 



ited graphics subroutines 

jures 9 moving dots, and 




■ave you ever wanted to write a 
machine-language program that 
.required moving graphics (such 
as an arcade-type game) and not known 
where to start? Faced with this prob- 
lem, I developed a set of general- 
purpose graphics subroutines that can 
be used for a wide variety of programs 
where moving graphics are required. 

These graphics routines operate in 
the Color Computer's G6R or G6C 
graphics modes but are easily adapted 
for other display modes or other com- 
puters. (I first developed them on a 
homemade computer.) 



Animated Graphics 

requires: 

6809 computer with memory- 
mapped graphics display such 
as CoCo. 
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The animated figures generated by 
these routines are eight bits (one byte) 
wide by "n" bits tall, as selected by the 
user. In mode G6R the byte will be 
divided into eight dots, while in G6C 
it will be divided into four double- 
width dots, each of which can assume 
four colors. 

All values necessary for printing the 
figures are stored at positive offsets 
from the "U" register — from 0,U to 
$D,U. Other information pertinent to 
the figure (e.g., its status, fuel, or score) 
may be stored at other offsets near the 
U register. To select different figures, 
simply move the U register. 

In addition to animated figures, 
there are routines for moving a single 
bit (for bullets) and for printing in 
specific columns to display numbers, 
letters, and custom characters while in 
graphics modes (score, fixed scen- 
ery, text). 

MICRO 



Speed is essential to moving 
graphics programs; a move of one 8x8 
character requires replacement of 32 
somewhat disordered bytes of video 
RAM with new data — in a short time. I 
move all my figures during the vertical 
blank period of the TV scan, which is 
indicated by the 6847's FS* signal. 
That way, the figures are displayed 
clearly (without flickering or in- 
terference) once in each position 
through which they move. The 
available time is just over 4 
milliseconds. With a 3.579MHz CPU 
clock (Color Computer normal speed), 
these routines will move in this time: 
two 8x8 figures plus several bullets, 
three 8x7 figures, or one figure up 
to 8 x 26. 

If more figures are to be moved, I 
double their velocities and move them 
on alternate scans. The motion may 
not appear smooth if displays are up- 
dated less often, but one move per three 
or four scans may be acceptable if the 
velocity is low. There is no limit to the 
velocity a figure may have except its 
visual appearance on the screen. 

If a figure passes through scenery or 
other figures, it will change color as it 
crosses, but afterwards both the figure(s) 
and the scenery will be unchanged. 
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If any print extends off the right or 
bottom of the screen, the other end of 
the figure will be printed on the left or 
top of the screen. If a figure or bullet 
moves off any edge of the screen, it will 
reappear on the opposite edge. 

Descriptions of the Routines 

PRGR and PRGX 

These animated character 
print/erase routines will print or erase 
a figure at any screen coordinate. The 
two routines are identical except that 
PRGR checks for collisions and PRGX 
doesn't; consequently PRGX rims, 
faster. Both routines affect the 3£, Y, 
and D registers. 

The secret to the print/erase feature 
is the use of exclusive-or between the 
figure and the current TV picture. The 
"1" bits in the shape table will remain 
1's if they are printed onto a blank (0) 
bit on the screen, but if they are par- id 
onto a "1" bit, they will become <> 0. 
Thus, the second time the character is 
printed into the same place, the screen 
is restored to its initial value. 

The collision checks also make use 
of this feature. If any "1" bits of the 
shape table become O's on the screen, a 
collision is registered, and "Z" in the 
CC register will be cleared at RTS, 
allowing tests by BEQ (no collision) 
and BNE (collision) instructions. 

It should be mentioned here that in 
four-color mode, a color with a bit pat- 
tern "01" (yellow or cyan) will never 
register a collision with a "10" bit pat- 
tern color (blue or magenta), since the 
" 1 " of one will always land on the "0" 
of the other. 



Notice that a collision will always 
be registered when erasing because the 
figure has "hit" itself. 

PRGX and PRGR actually print one 
bit position to the right of the specified 
position; you must allow for this when 
checking the specific screen position of 
a figure. 

MOVG and MOVC 

These routines move figures around 
the screen and change their animations 
after they have been printed once by 
PRGX or PRGR. MOVG is for two- 
color modes (G6R) and MOVC is for 
four-color modes (G6C). Their opera- 
tion sequence is: 

1. Erase present figure with PRGX. 

2. Add (two's complement) WEL to 
VPOS and correct for off-screen posi- 
tion if necessary. 

3 Add HVEL to HPOS. In the case of 
MOVC, HPOS units will always be 
set to an odd number to maintain the 
figure's correct shape and color. 

4. Update PST to present animation. 

5. Print new figure with PRGR. 

6. Restore D, X, and Y, and return from 
subroutine. 

Make your initial collision checks 
after a MOVe. 

My method for finding what you've 
hit is to erase the figures that you could 
have hit, one at a time, then erase and 
reprint your figure. If you are no longer 
hitting anything, you've erased that 
figure with which you were in contact. 
If none of them check out, you must be 
contacting the inanimate playfield. If 
anyone can find a shorter method, 
please write! 



Figure 1: Operands used by the routines, stored at positive offsets from the "U" 
r«>qlster. 






Operands used by each routine 


OFFSET 


NASYIE 


MOVG 

wiove 


PRGR 
PRGX 


MOVB 


PRGB 


PRPX 
PRPXD 


0,U 
1,U 


VPOS -units 
-fraction 


X 
X 


X 


X 
X 


X 


X 


2,U 
3,U 


HPOS -units 
•fraction 


X 
X 


X 


X 
X 


X 


X 


4,U 
5,U 


WEL -units 
-fraction 


X 
X 




X 
X 






6,U 
7,U 


HVEL -units 
■fraction 


X 
X 




X 
X 






3,U 


HEIGHT 


X 


X 






x 


9,U 


ANIMATION 


X 


X 






X 


$A,U 
$B,U 


ZERO SHAPE TABLE 
(ZST) 


X 
X 








X 
X 


$c,u 

$D,U 


PRESENT SHAPE TABLE 
(PST) 


X 
X 


X 
X 
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PRGB 

This routine prints or erases a single 
bit on the screen instead of a graphics 
character, but otherwise it is the same 
in operation as PRGR. In addition to 
printing bullets, this print may be used 
as a building block where a print is 
built up one dot at a time. D and X 
registers are affected. 

MOVB 

This routine is similar to MOVG, 
except that it moves a single bit (the 
bullet) instead of an animated figure. 
As with MOVG or MOVC, don't forget 
to do an initial PRGB to print the bit. 

PRPX and PRPXD 

These prints ignore the three least 
significant bits of HPOS and thus print 
on byte boundaries in 32 distinct col- 
umns. They are also absolute prints, 
unlike the PRG s; the original value of 
the screen is replaced by the print's 
shape table. These prints always use 
the figure's current animation, unlike 
PRGR and PRGX, which can only up- 
date their animations with a MOVe. 

PRPX prints a normal 8 x "n" bit 
figure, while PRPXD prints a double 
wide 16 x "n" bit figure, with two 
bytes of shape table required for each 
line of height. 



SETT 

This subroutine is called by the 
other subroutines. It changes the coor- 
dinates into a screen memory location, 
and it forms a "shift multiplier," 
which moves bits from one to eight bit 
positions to the right, depending on 
their HPOS. 

Descriptions of the Operands Used 

VPOS (0,U-1,U) is the vertical posi- 
tion of the top of the figure. 0,U is the 
actual vertical position, from 00 at 
the top of the screen to $BF at the bot- 
tom. The MOVe routines apply a cor- 
rection factor to VPOS if the value 
exceeds $BF. 

1,U is the fractional component, 
the amount left to move before the 
figure moves up or down a line. It is 
used in conjunction with the fractional 
part of WEL in MOVes to effect 
smooth motion at any given velocity. 

HPOS (2,U-3,U) is the horizontal 
position of the left side of the character 
from $00 at the left to $FF at the right. 
It is similar to VPOS, but without a cor- 
rection factor. 

(Continued on next page) 
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VVEL (4,U-5,U) is the two's com- 
plement vertical velocity, with integer 
and fractional components. 

A value of $0100 (or $FF00J will 
move a character down (or up) exactly 
one bit position with each MOVe that 
is called. Smaller values will not move 
the figure every MOVe, while larger 
values will skip aver some positions as 
the figure moves. 

HVEL J6,U-7,U) is the two's com- 
plement horizontal velocity, similar 
to VVEL. 

HEIGHT (8,U) is the height of 
figures at tfceir tallest animation. For 
each line of height, a figure requires 
one byte of shape table. 

ANIMATION (9,U) is >:he number 
that determines the shapt table that 
will be used at a figure's next MOVe, 
PRPX, or PRPXD. By changing this 
number, a figure may be shown snap- 
ping its jaws, with or without a sword, 
or facing different directions, etc. 

ZERO SHAPE TABLE (ZST, $A,U- 
$B,U) is the assigned pointer to the 
start of the figure's shape table(s). Shape 
tables must be consecutive and must 
all be the length, in bytes, of the 
HEIGHT number. 

PRESENT SHAPE TABLE (PST, 
?C,U-$D,U) is the pointer to the shape 
table selected by the animation 
number. It is set by the MOVes and 
PRPXes by the following equation: 

PST = ZST + (HEIGHT * ANIMATION) 

Thus, if a figure is five bits high and 
animation two is selected, then PST 
will point $A bytes past ZST, allowing 
five bytes for animation zeio an A five 
bytes for animation one. 



Variations to Suit... 

Different Display Memory Address 

Line 3670 of the program listing 
adds the upper byte of the starting ad- 
dress of the video display to the address 
obtained from the coordinates. The 
lower byte is assumed to be 0. Ex- 
ample: for display at $6800-$7FFF, use 
ADDA#$68. Also, lines 2050, 2280, 
3010, 3280, and 3900 must be CMPX 
(last byte of display memory), in this 
case, CMPX $7FFF. 

Shorter Height 

G6R and G6C both map $C0 (192) 
lines onto the screen. If your display 
mode maps fewer, or if you don't want 
to use the whole screen, then change 
lines 2490 and 4090 to CMPA# 
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(number of lines), and adjust the cor- 
rection factors in the lines following 
these. Lines 2050, 2280, 3010, 3280, 
and 3900 must be CMPX# (last byte of 
display), and lines 2090, 2300, 3050, 
3320, and 3920 are LEAX (-bytes of 
display memory), X. 

Shorter Width 

G6C and G6R Ijoth map $20 (32) 
bytes per line . If you v ant $ 10 bytes per 
line, the top of ths SETT subroutine 
should be changed to LSLB, LSRA, 
RORB, LSRA, RORB, LSRA, RORB, 
LSRA, RORB. To properly convert the 
coordinates to a memory location. 
Lines 2455, 3735, and 4175 should in- 
clude an ANDA#7F before STD 2,U for 
HPOS correction and, finally, all LEAX 
20,X's must be changed to LEAX 10,X. 

If your display maps other than 
su> nice even numbers of bytes per 
lL-»*\ you'll have to use the general for- 
mula in SETT to convert the coor- 
dinates to a memory location: Loca- 
tion = (HPOS/8) + (VPOS * (bytes per 
line) + start of TV memory. HPOS cor- 
rection factors will have to be set up 
similar to the VPOS ones. Remember, 
these are the units of HPOS and VPOS 
- not the fractions. 

Final Words 

If vou're not quite clear how it all 
fits y*it t study the demonstration in the 



listing. It contains examples of all of 
the routines used in two-color mode. 
To try the four-color mode, change line 
330 to LDA #$E5 to set mode G6C, and 
change line 1400 to LBSR MOVC. The 
shapes won't look right since the tables 
were designed for G6R, but you'll see 
the idea. 

The "SYNC" instruction at line 
1300 is the wait for vertical blank. I've 
left che BASIC handling the interrupt; 
all it does is clear the interrupt 
and return. 

Once you have the program typed in 
be sure to save it, since running it will 
probably wipe out your source text. 
When you have it all working, delete 
the demo program, ORG the sub- 
routines at some convenient spot, and 
save the machine code on tape. Be sure 
to write down the addresses of the 
labels that start the routines. You can 
write your programs and use equates 
for the subroutine addresses and simply 
load in the subroutine package when 
you are ready to test. 

Now you're ready to write useful 
graphics programs without spending 
countless hours coaxing the bits to 
move themselves around on the screen 
as I have done. Good luck! 



You may contact Mr. Carmiciiael at 
820 Dunsmuir Road, Victoria, British 
Columbia, Canada V9A 5B7. 



| Listing 1: Animated Graphics Routines and Demo 






♦ANIMATED GRAPHICS ROUTINES FOR THE 6809 






*CRAIG CAP^IGHAEL. 








WITH DEMONSTRATION PROGRAM THAT CHECKS MOST OF THE 






"ROUTINES 




3000 




« 

00190 ORG 


$30fe 






"DEMONSTRATION PROGRAM FOR COLOR COMPUTER. 






"PRINTS A 2 BYTE WIDE SHAPE, A SINGLE WIDE SHAPE, AND 






"MOVES A BIRD AROUND WITH A J0XSTICK-BIRD FIRES UPWARD 






"FIRST. SET UP GRAPHICS SCREEN TO G6R AT 0600-1DFF. 


3000 10CE 0400 


00250 DEM01 IDS 


#$400 REMOVE STACK FROM SCREEN 


3004 8E 


FFD4 


00260 LDX 


#$FFD4 "SET "SAM" CONTROLLER 


3007 A7 


83 


00270 DEM2 STA 


,-X 


3009 8C 


FFC0 


00280 CMPX 


0$FFCO 


300C 22 


F9 


00290 BHI 


DEM2 


300E A7 


03 


00300 STA 


3,X 


3010 A7 


05 


00310 STA 


5,X 


3012 A7 


07 


00320 STA 


$07,X 


3014 A7 


09 


00330 STA 


$09,X 


3016 86 


F5 


QO340 LDA 


#$F5 "AND VDG 


3018 B7 


FF22 


00350 STA 


>$FF22 






"ENABLE V BLANK INTERRUPT ONLY TO CPU. 


301B 8E 


FF21 


00370 LDX 


#$FF21 


301E 8D 


09 


00380 BSR 


CLRINT 


3020 8E 


FF01 


00390 LDX 


#$FF0x 


3023 8D 


04 


00400 BSR 


CLHINT 


3025 6C 


02 


00410 INC 


2,X 


3027 20 


0D 


00420 BRA 


cms 


"0Z9 A6 


84 


00430 CLRINT IDA 


,X "DISABLES 2 INT'S. 


302B 84 


FC 


00440 ANDA 


#?fc (Continued on page 80) 
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Listing 1 (continued) 


30D1 13 




01310 SINC SYNC 




302D A7 


84 


00450 STA ,X 


30D2 CE 


2720 


01320 LDU 


#$2720 


302F A6 


02 


00460 IDA 2,X 


3C- 'A 


4F 


01330 DEC 


$OF,U "FLAP BIRD'S WINGS 


3031 84 


FC 


00470 ANDA #$FC 


30D"/ 26 


OB 


01340 BNE 


NOFLAP 


3033 A7 


02 


00480 STA 2,X 


30D9 86 


10 


01350 LDA 


#$10 *EVERY 16TH SCAN 


3035 39 




00490 RTS 


30DB A7 


4F 


01360 STA 


$OF,U 






*CLEAR TV SCREEN. 


30DD A6 


49 


01370 LDA 


9,U 


3036 BE 


0600 


00510 CLRS LDX #$0600 


30DF 4C 




01380 INCA 




3039 6F 


80 


00520 MOREBY CLR ,X+ 


30E0 84 


03 


01390 ANDA 


#$03 


303B 8C 


1DFF 


00530 CMPX #$1DFF 


30E2 A7 


49 


01400 STA 


9,U 


303E 23 


F9 


00540 BIS MOREBY 


30E4 17 


00A7 


01410 NOFLAP LBSR 


MOVG "MOVE BIRD 






KPRINT DOUBLE WIDTH FIGORE ON BYTE BOUNDARIES. 


30E7 CE 


2730 


01420 LDU 


#$2730 "POINT k? BULLET 


3040 CE 


2700 


00560 DRAW LDU #$2700 


30EA 6D 


4E 


01430 TST 


$OE,U »IS THERE ONE? 


3043 CC 


1010 


00570 LDD #$1010 


30EC 27 


9F 


01440 BEQ 


LOOP 


3046 A7 


C4 


00580 STA ,U *VPOS 


30EE 6A 


4E 


01450 DEC 


$OE,U "END OF RANGE? 


3048 E7 


42 


00590 STB 2,U *HPOS 


30F0 27 


09 


01460 BEQ 


ENDBUL 


304A CC 


1000 


00600 LDD #$1000 


30F2 17 


017F 


01470 LBSR 


MOVB "NO, MOVE IT 


304D ED 


48 


00610 STD 8,U *HEIGHT AND ANIMATION 


30F5 27 


96 


01480 BEQ 


LOOP "HIT ANYTHING? 


304F 30 


8D OCAD 


00620 LEAX DUBLPX,PCR 


30F7 6F 


4E 


01490 CLR 


$0E,U "YES, END BULLET 


3053 AF 


4A 


00630 STX $OA,U *SHWPS TABLE 


30F9 20 


92 


01500 BRA 


LOOP 


3055 17 


C0E4 


00640 LBSR PRPXD 


30FB 17 


0160 


01510 ENDBT3L LBSR 


PRGB *ERASE BULLET 






* 


30FE 20 


8D 


01520 BRA 


LOOP 






*PRIMT SINGLE WIDTH FIGURE ON BYTE BOUNDARIES. 


3100 


O3C0 


01530 DUBLPX FDB 


$03C0 "DOUBLE WIDE SHAPE TABLE 


3058 CE 


2710 


00670 LDU #$2710 


3102 


0C30 


01540 FDB 


$0C30 


305B CC 


40C0 


00680 LDD #$40CO 


3104 


1008 


01550 ' FDB 


$1008 


3U5E A7 


C4 


00690 STA ,U *VTOS 


3106 


2004 


01560 FDB 


$2004 


3060 E7 


42 


00700 STB 2,U *h?OS 


3108 


4002 


01570 FDB 


$4002 


3062 CC 


0800 


00710 LDD #$0800 


310A 


4002 


01580 FDB 


$4002 


3065 ED 


48 


00720 STD 8,U *HEIGHT AND ANIMATION 


310C 


8001 


01590 FDB 


$8001 


3067 30 


8D 00B5 


00730 LEAX PIXLS,PCR 


310E 


8001 


01600 FDB 


$8001 


306B AF 


4A 


00740 STX $OA,U *SHAP2 TABLE 


3110 


8001 


01610 FDB 


$8001 


306D 17 


00F8 


00750 LBSR PRPX 


3112 


8001 


01620 FDB 


$8001 






* 


3114 


4002 


01630 FDB 


$4002 






SPRINT THE BIRD 


3116 


4002 


01640 FDB 


$4002 


3070 CE 


2720 


00780 LDU #$2720 


3118 


2004 


01650 FDB 


$2004 


3073 CC 


6080 


00790 LDD #$6080 


311A 


1008 


01660 FDB 


$1008 


3076 A7 


C4 


OG800 STA ,U *VP0S 


3HC 


0C30 


01670 FDB 


$0C3O 


3078 E7 


42 


00810 STB 2,U *HPOS 


311E 


03C0 


01680 FDB 


$03C0 


307A CC 


0500 


00820 LDD #$05C0 


3120 


183C 


01690 PIXLS FDB 


$183C "SINGLE WIDE SHAPE TABLE 


307D ED 


48 


00830 STD 8,U "HEIGHT AND ANIMATION 


3122 


7EFF 


01700 FDB 


$7EFF 


307F 30 


8D 00A5 


00840 LEAX PXBIRD,PCR 


3124 


FF7E 


01710 FDB 


$FF7E 


3083 AF 


4A 


00850 STX $OA,U *ZERO SHAPE TABLE 


3126 


3C18 


01720 FDB 


$3C18 


3085 AF 


AC 


00860 STX $OC,U "PRESENT SHAPE TABLE 


3128 


E718 


01730 PXBIRD FDB 


$E718 "4 BIR? SHAPE TABLES 


3087 17 


0146 


00870 LBSR PRGX 


312A 


1818 


01740 FDB 


$1818 


308A 6F 


C8 IE 


00880 CLR $1E,U "NO BULLET YET 


312C 


24 


01750 FCB 


$24 






*MAIN LOOP: GET BIRD'S MOVES FROM JOYSTICK, AND MOVE 


312D 


0066 


01760 FDB 


$0066 






*THE BIRD AROUND. TRY SHOOTING SOMETHING. 


312F 


9918 


01770 FDB 


$9918 






»READ JOYSTICKS INTO $015A-5D 


3131 


24 


01780 FCB 


$24 


308D AD 


9F AOOA 


00920 LOOP JSR [$A00A] 


3132 


0000 


01790 FDB 


$0000 






"MAKE V.R. JOYSTK INTO WEL. 


3134 


7E99 


01800 FDB 


$7E99 


3091 CE 


2720 


00940 LDU #$2720 


3136 


18 


01810 FCB 


$18 


3094 4F 




00950 CLRA 


3137 


0000 


01820 FDB 


$0000 


3095 F6 


015B 


00960 LDB >$015B 


3139 


183C 


01830 FDB 


$183C 


3098 58 




00970 LSLB 


313B 


DB 


01840 FCB 


$DB 


3099 58 




00980 LSLB 






*6809 ANIMATED GRAPHICS ROUTINES 


309A 83 


0080 


00990 SUED #$0080 






* 




309D ED 


44 


01000 STD 4,U 






* BY CRAIG CARMICHAEL 






*H.R. JOVSTK INTO HVEL. 






* 




309F 4F 




01020 CLRA 






"PARAMETERS FOR ALL ROUTINES ARE STORED AT POSITIVE 


30AO F6 


015A 


01030 LDB >$015A 






"OFFSETS FROM "U». SEE TABLE IN TEXT. x 


30A3 58 




01040 LSLB 






" 




30A4 58 




01050 LSLB 






* 




30A5 83 


0080 


01060 SUBD #$0080 






*PRPXD PRINTS "DOUBLE" WIDTH (16 BIT) CHARACTER IN ONE 


30A8 ED 


46 


01070 STD 6,U 
"BULLET IN FLIGHT? 






*0F 32 COLUMNS. THE 3 LOWEST BITS OF HPOS ARE IGNORED. 
*ORIGI0NAL CONTENTS OF THE LOCATION ARE LC3T. 


30AA CE 


2730 


01090 LDU #$2730 


313- 34 


36 


01960 PRPXD PSHS 


Y,X,D 


30AD 6D 


4E 


01100 TST $OE,U 


313E 17 


00F8 


01970 LBSR 


SETT 


30AF 26 


20 


01110 BNE SINC 






*FIND CURRENT ANIMATION SHAPE TABLE, PUT IN Y. 






"NO BULLET AT PRESENT. DOES BIRD FIRE ONE? 


3141 A6 


49 


01990 LDA 


9,U 


30B1 B6 


FFOO 


01130 LDA >$FFOO 


3143 E6 


48 


02000 LDB 


8,U 


30B4 85 


01 


01140 BITA #$01 

"YES, PRINT BULLET, USING BIRD'S CO-ORDINATES. 


3145 D7 
3147 58 


10 


02010 STB 
02020 LSLB 


<$10 "GET HEIGHT INTO <$10 


30B6 26 


19 


01160 BNE SINC 


31<"»8 3D 




02030 MUL 




30B8 EC 


50 


01170 LDD -$10,U 


3149 E3 


4A 


02040 ADDD 


$OA,U 


j 30PA 4A 




01180 DECA 


314B IF 


02 


02050 TFR 


D,Y 


30BB ED 


C4 


01190 STD ,U 






*PRINT LOOP. ADJUST X IF IT POINTS OFF SCREEN. 


30BD EC 


52 


01200 LDD -$OE,U 


314D 8C 


1DFF 


02070 PPPP CMPX 


#$1DFF 


30BF ED 


42 


01210 STD 2,U 


3150 25 


09 


02080 BLO 


OKAYD 


30C1 6F 


46 


01220 CLR 6,U »HVEL=0 


3152 26 


03 


02090 BNE 


PASSD1 


30C3 6F 


47 


01230 . CI1 7,U 


3154 30 


88 20 


02100 LEAX 


$20,X *OFF CORNER CORRECTION 


30C5 CC 


FFOO 


01240 LDD #$FF00 


3157 30 


89 E800 


02110 PASSD1 LEAX 


$E800,X "OFF BOTTOM CORRECTION 


30C8 ED 


44 


01250 STD 4,U «WEL=-1(UP) 






*STORE NEXT BYTE OF SHAPE TABLE ON NEXT LINE OF PIXEL 


30CA 17 


0191 


01260 LBSR PRGB 


315B EC 


Al 


02130 OKAYD L0D 


,Y++ 






"BULLET TO FLY $40 SPACES. 


315D ED 


84 


02140 STD 


»x 


30CD 86 


40 


01280 LDA #$40 


315F 30 


88 20 


02150 LEAX 


$20,X "DOWN TO NEXT LINE 


30CF A7 


4E 


01290 STA $OE,U 


3162 OA 


10 


02160 DEC 


<$10 "MOiffi LINES? 






"WAIT FOR NEXT VERTICAL BLANK, THEN MOVE BIRDS BULLET. 








(Continued) 
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Listing 1 (continued) 






3164 26 


E7 


02170 


BNE 


PPPP 


3166 35 


B6 


02180 


PUIS 


PC,Y,X,D 






"PRINT SIKGLE WIDTH FIGURE IN ONE OF 32 COLUMNS. 






»SAME COMMENTS APPLY AS FOR DOUBLE WIDTH. 


3M66 34 


36 


02220 PRPX 


PSHS 


Y,X,D 


316A 17 


OOCC 


02230 


LBSR 


SETT 


316D A6 


49 


02240 


LDA 


9,U 


31oF E6 


48 


02250 


LDB 


8,U 


31V1 D7 


10 


02260 


STB 


<$10 


3173 3D 




02270 


MUL 




3174 E3 


4A 


02280 


ADDD 


$OA,U 


3176 IF 


02 


02290 


TFR 


D,Y 


3178 8C 


1DFF 


02300 PPPS 


CMPX 


#$1DFF 


317B 23 


04 


02310 


BLS 


OKAYS 


317D 30 


89 E800 


02320 


LEAX 


$E800,X 


3181 A6 


AO 


02330 OKAYS 


LDA 


,Y+ 


3183 A7 


84 


02340 


STA 


»x 


3185 30 


88 20 


02350 


LEAX 


$20,X 


3188 0A 


10 


02360 


DEC 


<$10 


318A 26 


EC 


02370 


BNE 


PPPS 


318C 35 


B6 


02380 


PULS 


PC,Y,X,D 






"MOVG MOVES A GRAPHICS CHARACTER BY ERASING THE 



318E 34 
3190 8D 
3192 EC 
3194 E3 
3196 EC 
3158 EC 
319A E3 
319C 81 
319E 25 
31A0 81 
31A2 24 
31A4 80 
31A6 80 
31A8 ED 



31AA E6 
31AC A6 
31AE 3D 
31AF E3 
31B1 ED 

333 8D 
31B5 35 



31B7 34 
31B9 8D 
31BB EC 
31BD E3 
31BF ED 



36 
3E 
42 
46 
42 
C4 
44 
CO 
08 
EO 
02 
80 
40 
C4 



49 
48 

4A 
4C 

47 

B6 



36 
15 
42 
46 
42 



31C1 44 
J1C2 25 D4 
31C4 48 



31C5 6D 
31C7 2A 



46 
02 



02 



31C9 80 
31CB 4C 
31CC A7 42 

31CE 20 C8 



31D0 8D 67 
31D2 A6 48 
31D4 97 10 
31D6 10AE 4C 

31D9 8C 1DFF 



"CHARACTER, CALCULATING TtfS WEW ANIMATION AND 
"POSITION, AND PRINTING THE NEW CHARACTER THERE. 
"COLLISIONS ARE CHEJKED. USE BEQ NOCOL, OR BNE COLISN. 



02440 MOVG PSHS 

02450 BSH 

02460 LDD 

02470 ADDD 

02480 STD 

02490 SAMECG LDD 

02500 ADDD 

02510 CMPA 

02520 BLO 

02530 CMPA 

02540 BHS 

02550 SUBA 

02560 HEREMG SUBA 

02570 OKAYMG STD 

02580 

"FIND SHAPE TABLE FOR NEW ANIMATION. 



"ERASE OLD CHARACTER 
"FIND NEW HOP. POSN. 

"STORE IT IN HPOS 
"FIND NEW VERT POSN. 



Y,X,D 

PRGX 

2»U 

6,U 

2,U 

»U 

4,U 

0$CO "AND MAKE SURE ITS ON SCRN 

OKAYMG 

#$E0 

HEREMG 

#$80 

#840 

,U "AND STORE IN VPOS 



02600 
02610 
02620 
02630 
02640 



LDB 

LDA 

MUL 

ADDD 

STD 



9,0 

8,U 



$OA,U 

$OC,U 

"PRINT NEW CHARACTER WITH COLLISION CHECK, AND RETURN. 
02660 BSR PRGR 
02670 PULS PC,Y,X,D 
* 

"MOVC HAS THE SAME FUNCTION AS MOVG, BUT OPERATES IN 4 

"COLOR GRAPHICS MODE G6C (GM6) . COMMENTS FOR MOVG ALL 

"APPLY HERE. 

02720 MOVC PSHS Y,X,D 

02730 BSR PRGX 

02740 LDD 2,U 

02750 ADDD 6,U 

02760 STD 2,U 

"SINCE COLOR MODES USE 2 BITS/DOT, AND PRGR/X SHIFT 

"THE PRINT 1 SPACE TO THE RIGHT, THE HPOS UNITS MUST 

"ALWAYS BE AN ODD NUMBER. 

02800 LSRA 

02810 BCS SAMECG 

02820 LSLA 

"IT'S EVEN. IS MOVEMENT TO LEFT CR TO RIGHT? 

02840 TST 6,U 

02850 BPL HEREMC 

"JUMP ANOTHER SPACE LEFT OR RIGHT. 

02870 SUBA #$02 

02880 HEREMC INCA 

02890 STA 2,U 

"FROM HERE, SAME AS MOVG, SO GO THERE. 

02910 BRA SAMECG 

* 

"PRGX PRINTS OR ERASES AN 8 BIT WIDE BY "H" BITS TALL 
"GRAPHICS CHARACTER. THERE IS NO COLLISION CHECK. USED 
"IN G6R (GM7) THE FIGURE WILL BE 8 BITS WIDE BY "H" 
"BITS TALL. IN G6C (GM6), IT WILL BE 4 DOUBLE WIDE 
"COLORED DOTS WIDE INSTEAD OF 8 SINGLE DOTS. 



02980 PRGX 
02990 
03000 
03010 

"PRINT LOOP. 
03030 PPPPGX 



BSR 
LDA 
STA 
LDY 



SETT 
8,U 
<$10 
?OC,U 



MAKE SURE PRINT, IS ON SCREEN. 
CMPX #$1DFF ._ 

{Continued on next page) 
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Let Unique Data Systems help you raise your sights on AIM 65 
applications with our versatile family of AIM support products. 

• Go for high quality with our ACE-100 enclosure. It accom- 
modates the AIM 65 perfectly, without modification, and feature-* 
easy access two board add-on space, plus a 3" x 5" x 17" and a 
4" x 5" x 15.5" area for power supplies and other com- 
ponents. $186.00. 

• Get high capability with Unique Data System's add-on boards. 
The UDS-100 Series Memory-I/O boards add up to 16K bytes of 
RAM memory or up to 48K bytes ROM/PROM/EPROM to your 
Rockwell AIM 65. You also get 20 independently programmable 
parallel I/O lines with an additional user-dedicated 6522 VIA, two 
independent RS-232 channels with 16 switch-selectable baud 
rates (50 to 19.2K baud), and a large on-board prototyping area. 
Prices start at $259.00. 

• If you need to protect against RAM data loss, the UDS-100B of- 
fers an on-board battery and charger/switchover circuit. $296.00. 

• Heighten your AIM 65's communications range by adding the 
UDS-200 Modem board. It features full compatibility with Bell 
System 103 type modems and can be plugged directly into a 
home telephone jack via a permissive mode DAA. No need for a 
data jack or acoustic coupler. The UDS-200 also has software- 
selectable Autoanswer and Autodial capability with dial tone 
detector. The modem interfaces via the AIM 65 expansion bus, 
with the on-board UARTand baud rate generator eliminating the 
need for an RS-232 channel. $278.00. 

•The UDS-300 Wire Wrap board accepts all .300/.600/.S00 IC 
sockets from 8 to 64 pins. Its features include an intermeshed 
power distribution system and dual 44-pin card edge connectors 
for bus and I/O signal connections. $45.00. 

• Get high performance with the ACE-100-07 compact 4" x 5" x 
1.7" switching power supply, delivering +5V @ 6A, + 12V @ 1 A, 
and + 24V for the AIM printer. $1 1 8.00. 

Installation kits and other related accessories are also avail- 
able to implement your AIM expansion plans. Custom hard- 
ware design, programming, and assembled systems are also 
available. High quality, high capability, high performance, with 
high reliability. . . all from Unique Data Systems. Call or write 
for additional information. 

Unique Data Systems Inc. 
1600 Sfliraloma Avenue, Pfacentia, CA 92670 

(714) 630-1430 
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Listing 


1 (continued) 


323F 44 
3240 56 




03640 LSRA 
03650 RORB 


31DC 25 


09 


03040 BLO OKAYGX 


324:1 44 




03660 LSRA 


31DE 26 


03 


03050 BNE PASTOX 


3242 56 




03670 RORB 


31E0 30 


88 20 


03060 LEAX $20, A 






*THEN ADD $0600 TO THIS, SCREEN MEMORY IS AT 0600-1DFF 


31E3 30 


89 E800 


03070 FASTGX LEAX $E800,X 


3243 8B 


06 


03690 ADDA #$06 






*GET NEXT BYTE OF SHAPE TABLE, SHIFT IT RIGHT USING 


3245 IF 


01 


03700 TFR D,X 






"SHIFT MULTIPLIER AT <$11 






*NOW FORM SHIFT MPYER WITH 1 BIT SET, IN»A" AND IN<$11 


31E7 A6 


AO 


03100 ORAYOX LDA ,Y+ 


3247 E6 


42 


03720 LDB 2,U 


31E9 27 


09 


03"10 BEQ ENDLNX 


3249 86 


80 


03730 LDA #$80 


31EB D6 


11 


03120 LDB <$11 


324B 54 




03740 LSRB 


33 ED 3D 




03130 MUL 


324C 24 


01 


03750 BCC SHFT1 






^EXCLUSIVE OR DATA WITH SCREEN THEN PRINT IT. 


324E 44 




03760 LSRA 


31EE A8 


84 


03150 EORA ,X 


324F 54 




03770 SHFT1 LSRB 


31F0 E8 


01 


03160 E0R3 1,X 


3250 24 


02 


03780 BCC SHFT2 


31F2 ED 


84 


03170 STD ,X 


3252 44 




03790 LSRA 


31F4 30 


88 20 


03180 ENDLNX LEAX $20, X *KEXT LINE DOWN ON TV 


3253 44 




03800 LSRA 


31F7 0A 


10 


03190 DEC <$10 


3254 54 




03810 SHFT2 LSRB 


31F9 26 


DE 


03200 BNE PPPPGX *M0RE LINES? 


3255 24 


04 


03820 BCC SHFT4 


31FB 39 




03210 RTS 


3257 44 




03830 LSRA 






# 


3258 44 




03840 LSRA 






*PRGR IS THE SAME AS PRGX EXCEPT IT CHECKS FOR 


3259 44 




03850 LSRA 






COLLISIONS. THE SAME COMMENTS APPLY. 


325A 44 




03860 LSRA 


31FC 8D 


3B 


03250 PRGR BSR SETT 


325B 97 


11 


03870 SHFT4 STA <$11 


31FE A6 


48 


03260 LDA 8,U 


325D 39 




03880 RTS 


3200 97 


10 


03270 STA <$10 






* 


3202 10AE 4C 


03280 LDY $0C,U 






*PRGB PRINTS/ERASES A SINGLE BIT ON THE SCREEN. 


3205 OF 


13 


03290 CLR <$13 


325E 8D 


D9 


03910 PRGB BSR SETT 


3207 8C 


1DFF 


03300 PPPPGR CMPX 1?$1DFF 


3260 8C 


1DFF 


03920 CMPX #$1DFF CHECK FOR OFF SCREEN 


320A 25 


09 


03310 BLO OKAYGR 


3263 23 


04 


03930 BLS OKAYGB 


320C 26 


03 


03320 BNE PASTGR 


3265 30 


89 E800 


03940 LEAX $E800,X 


320E 30 


88 20 


03330 LEAX $20,X 






*A=SHIFT MPYERsTHE DOT ITSELF. PRINT IT. 


3211 30 


89 E800 


03340 PASTGR LEAX $E800,X 


3269 97 


14 


03960 OKAYGB STA <$14 


3215 A6 


AO 


03350 OKAYGR LDA ,Y+ 


326B A8 


8A 


03970 EORA ,X 


3217 27 


16 


03360 BEQ ENDLNR 


326P A7 


84 


03980 STA ,X 


3219 D6 


11 


03370 LDB <$11 


326f 94 


14 


03990 ANDA <$14 *CHECK FOR COLLISION 


321B 3D 




03380 MUL 


3271 91 


14 


04000 CMPA <$14 






*PRINT NEXT LINE, 


3273 39 




04010 RTS 


321C DD 


14 


03400 STD <$14 






* 


321E-A8 


84 


03410 EORA ,X 
03420 EORB 1,X 






*MOVB MOVES A GRAPHICS BIT BY ERASING THE OLD falT, 


3220 E8 


01 






CALCULATING THE NEW LOCN, AND PRINT1KG A DOT THERE. 


3222 ED 


84 


03430 STD ,X 

COLLISION CHECK ONLY THE "1" BITS OF THE SHAPE TABLE, 






•IF USED IN G6R (GM7), 

•THE DOT WILL CHANGE COLOR AS IT MOVES HORIZONTALLY. 


3224 94 


14 


03450 ANDA <$14 


3274 34 


16 


04070 MOVB PSHS X,D 


3226 D4 


15 


03460 ANDB <$15 


3276 8D 


E6 


04080 BSR PRGB »ERASE OLD DOT 


3228 1093 14 


03470 CMPD <$14 


3278 EC 


C4 


04090 LDD ,U *FIND NEW VPOS 


322B 27 


02 


03480 BEQ ENDLNR 


327A E3 


44 


04100 ADDD 4,U 






*AND DEC <$13 IF THERE HAS BEEN A COLLISION. 


327C 81 


CO 


04110 CMPA #$C0 •MAKE SURE ITS ON SCREEN 


322D OA 


13 


03500 DEC <$13 


327E 25 


08 


04120 BLO OKAYMD 


322F 30 


88 20 


03510 ENDLNR LEAX $20, X 


3280 81 


EO 


04130 CMPA #$E0 


3232 OA 


10 


03520 DEC <$10 


3282 24 


02 


04140 • BHS GOBOTM 


3234 26 


Dl 


03530 BNS PPPPGR 


3284 80 


80 


04150 SUBA #$80 






*SET "Z»=0/1 IF COLLISION/NO COLLISION, AND RETURN 


3286 80 


40 


04160 GOBOTM SUBA #$40 


3236 OD 


13 


03550 TST <$13 


3288 ED 


C4 


04170 OKAYMD STD ,U 


3238 39 




03560 RTS 


328A EC 


42 


04180 LDD 2,U «FIND NEW HPOS 








328C E3 


46 


04190 ADDD 6,U 






*SET-UP TO PRINT GRAPHICS. 


328E ED 


42 


04200 STD 2,U 


3239 A6 


C4 


*FIRST, CHANGE CO-ORDINATES TO MEMORY LOC'N 0000-17FF. 
03600 SETT LDA ,U 


3290 8D 
3292 35 


CC 
96 


04210 BSR PRGB *PRINT NEW DOT AND RETURN. 
04220 PUIS PC,X,D 


323B E6 


42 


^ LDB 2,U 






04230 END 


323D 44 




0, . LSRA 








323E 56 




03630 RORB 
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P®«aj@§*ffaiS — iSeeramieai — Professional 
Peripherals for your Apple II* 



A/D 12-Bit. 16 Channel ad 4 -%?S 2 

• Simple Software Selection of Channels 

• Range ±10, ±5, ±2.5, +5, +10 

• High-Speed 25 \i Sec. Conversion 

• Full Software Support — Disk or Prom 



Ultra Rom Board/Editor $1 90.00 apb - 10a 

• Powerful G.P.L.E. [Global Program Line Editor) built, in 

• Includes: Search and Replace - Insert and Delete - and much more 
« Edit programs 2 to 5 times faster 

• 32K of Bank Switchable ROM Space 

• Totally Transparent - Remove or Reload with a few keystrokes - without disk! 

• Extensive Macro Table eliminates multiple keystrokes for ccmmon operations 

• Useful Ampersand [&] Utilities all in one place 

• Applesoft* Extensions including "IF. THEN, ELSE" 
o Support for other HOLLYWOOD HARDWARE Products in Rom 



Adjustable Bipolar Reference 

6842 Vaijean Avenue, Van Nuys, California 91406 (218) 989-1204 



"Trademarks of Apple Computer Inc. 
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Skyles Electric Works 

231 E South Whisman Road 
Mountain View, CA 94041 
(415)965-1735 



AVAILABLE MOW! Calf 800 227-9998** 
For the name of your nearest dealer, 
detailed information or a catalog of products. 

** California, Canada and Alaska, please call (415) 965-1735. 



In Europe: SUPERSOFT, Winchester House, Canning Road, Harrow Wealdstone, England HA3 7SJ, Tel. 01 861 1166 
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©TelAideo 




TERMINALS 

910 $559.00 

912 S689.00 

920 , $739.00 

925 $719.00 

950 $929.00 

970 CALL 

COMPUTERS 

800A $1099.00 

802 $2699.00 

803 $1949.00 

802H $4695.00 

806/20 $4999.00 

816/40 $9199.00 

1602 $3399.00 

1603 CALL 



tSAOOBMS 

HAYES 

Wa Smart $219.00 

ggg Smart 1200 (1200 Baud)... $51 9.00 

Chronograph $199.00 

Micromodem 1 00 $309.00 

Micromodem II $279.00 

Micromodem II (with term) . . .3299.00 

Smart Com II $99.00 

Smart 1200B $469.00 

NOVATION 

J-Cat $1 1 9.00 

Cat $144.00 

D-Cat $1 59.00 

103 Smart Cat $189.00 

Apple Cat II $279.00 

103/212 Smart Cat $439.00 

212AppleCatll $609.00 

Apple Cat II 21 2 Upgrade. . . . $309.00 
ANCHOR 

Mark I (RS-232) $79.00 

Mark II (Atari) $79.00 

Mark III (T.. I. 99) $109.00 

Mark IV (CBMPET) $1 25.00 

Mark V (Osborne) $95.00 

Mark VI (IBM-PC) $179.00 

Mark VII (Auto Ans/Auto Oial) .. .$1 1 9.00 

Mark VIII $269.00 

TRS-80 Color Computer $99.00 

9 Volt Power Supply . . .'. $9.00 

ZENITH 
ZT1 Terminal $369.00 



E3QLE 




iHEWLETT 

IPACKAPIO 



HP 41 CV. . . $809.00 
HP 75 $749.00 

HP41C $146.00 

HP IOC $52.00 

HP11C $£3 00 

HP12C 533 00 

HP15C $92.00 

HP16C $92.00 

ForHP41/41CV 

HPIL Module $99.00 

HF IL Cassette or Printer. . . . $359.00 

C*rd Reader $144.00 

Extended Functions Module . . . $64.00 
Time Module S64.00 



IIE-1 $1369.00 

HE-2 $1649.00 

"E-3 $2399.00 

IIE-4 $3199.00 

PC-E $1579.00 

PC-1 $2399.00 

PC-2 $2799.00 

PC-XL $3599.00 

1 620 $3599.00 

1 630 $5499.00 

1640 $6499.00 

Cyma Software CALL 

MONITORS 

AMOEK 

300G $1 49.00 

300A $1 59.00 

310A $169.00 

Color I $279.00 

Color I plus $299.00 

Color II $399.00 

Color III $349.00 

Color IV $999.00 

PM.9"G $99.00 

Pi 2, 12" G $119.00 

Pi 3, 12" A 5159.00 

Pi 4. 9" A $1 39.00 

1 400 Color $299.00 

ZENITH 

Zv.JI122A $119.00 

ZVM 123G S3109.00 

BMC 

12" Green $85.00 

9191 13" Color $299.00 

TAXAN 

12 N Green $129.00 

12 A Amber $139.00 

PANASONIC 

TR 120Hi-res. Green $149.00 

CT 1 60 Dual Mode Color . . . $279.00 

NEC 

JB 1 260 $11 9.00 

JB1201 $149.00 

JC1212 $299.00 

JC 1 2-202 $299.00 

JC 1 203 $469.00 

GORILLA 
12" Green $89.00 



EPsoiy 

COMPUTER© 

QX-10 CALL 

HX-20 CALL 



Ti-40 
(COMPACT 

COMPUTER 

SEQ9 

TIM EX 

SiftiCLAiR ffi ^,0 9S 
1QOO ^ B ' fiSB 

16K Memory $44.95 

2040 Printer $99.95 

Vu-Caic $17.95 

Mindware Printer $99.00 




NEC 3BSO POINTER. . . SI 70S 

PERCOM/TANDON 

DRIVE 

5V«" 320K Floppy $279.00 

S meg hard w/controller ...$1495.00 
1 meg hard w/controller. . . $1 795.00 
1 5 meg hard w/controller. . . $21 95.00 
20 meg hard w/controller. . . $2595.00 
AMOEK 

310A Amber Monitor $169.00 

DXY 100 Plotter $599.00 

Color II $399.00 

AST RESEARCH. INC 

SIXPAKPLUS.64K- 

clock, serial, parallel $299.00 

clock.se rial, psrallel.gameport..$339.0O 
MEGAPLUAII.64K- 

clock, serial. parallel $339.00 

clock.serial.parallel,gameport..$379.00 
clock. 2 serial parallel,gameport.$41 9.00 
COMBOPLUSII.64K- 

clock, serial, parallel $299.00 

l/OPLUSII- 

clock. serial, parallel $145.00 

clock.serial,parallel,gameport..$1 79.00 

PROFESSIONAL SOFTWARE 

PC Plus Word Processing ...$31 9.00 
MICRO PRO 

Word Star/Mail Merge $319.00 

Inf oStar $299.00 

Spell Star $1 59.00 

CallStar $1 59.00 

MIRROSTUP 
Crosstalk $1 39.00 

MICROSOFT 

Mulllptan $1 99.00 

A8HTON-TATE 
D-Baso II $41 9.00 

IUS 

EasyWriter II $209.00 

EasySpeller $1 29.00 

EasyFiler $1 29.00 

CONTINENTAL SOFTWARE 

IstClass Mail/Form Letter ...$89.00 

The Home Accountant Plus ...$109.00 

SYNAPSE 

File Manager $11 9.00 

LOTUS 

123 $369.00 

PFS 
APPLE IBM 

File $89.00 $99.00 

Report $89.00 $89.00 

Graph $89.00 S9S.00 

Write n/a $99.00 

KRAFT 

IBM Joystick $55.00 

IBM Paddles $39.00 

QUAD RAM CALL 




PC-1SQOA $169.00 
Pocket; Computer 

PO-iaSDA $BB.OD 

1 25 Printer/Micro Cassette ... $1 29.00 
1 £0 Printer/Plotter/Cassette. . . $1 72.00 

152 Cassette Recorder $62.00 

155 8K RAMI $94.00 

158 BK RAM Battery $129.00 

161 16KRAM $139.00 







MBC-555PC .717777. . S795.00 

MBC1100 $1599.00 

MBC1150 $2099.00 

MBC1200 $1999.00 

MBC1250 $2399.00 

FDD 3200-320K Driv« $399.00 

FDD 6400-64K Drivfif $499.00 

PR 5500 Printer $699.00 

PRINTS m r 3 
EPSor. 

MX80 FT, MX 100. RX80. 

FX80. FX100 CALL 

OKIDATA 
82. 83. 84, 92, 93 CALL 

STAR 

STX80 $169.00 

Gemini 10X $299.00 

Gemini 15 $479.00 

Serial Board $75.00 

SMITH CORONA 

TP-1 $469.00 

TP-2 CALL 

Tractor Feed $119.00 

C.ITOH 

Gorilla $209.00 

Prowriter 851 OP $379.00 

Prowriter 1 550P $689.00 

StarwriterF10-40P $1149.00 

Printmaster F1 0-55P $1 569.00 

Tractor Feed $199.00 

OAISYWRITER 

2000 Letter Quality $11 49.00 

2500...NEW CALL 

Tractor Feed $1 09.00 

DIABLO 

620 $949.00 

630 $1769.00 

IDS 

Call for ALL Configurations on 

IDS PRISM PP.NTERS. 

NFC 

8023 $399.00 

8025 $729.00 

3510 $1449.00 

3530 $1499.00 

3550 $1799.00 

7710/7730 $1999.00 

BMC 

401 Letter Quality $699.00 

BROTHER 

Comnter I! Printer $499.00 

CABLES & CONNECTIONS . 

Atari to Parallel $29.00* 

Atari to Serial $29.00 

Apple to Parallel $69.00 

Apple to Parallel/Graphics... $99.00 

Apple to Serial $89.00 

IBM to Parallel $35.00 

IBM to Serial $29.00 

Parallel to Parallel $29.00 

Serial to Serial $29.00 

Grappler Plus $1 29.00 

PKASO $1 39.00 

Atari to Modem Cable $29.00 

CBM 64 to IEEE Board $79.00 

Apple 80-Column Card $1 59.00 

CBM Pet to Parallel . , $99.00 

CBM Pet to Serial $89.00 

PAPER SUPPLIES 

1or2"Address Labels(Tract.Feed)..$9.9S 
1 5" Report PaperfTract Feed) . . . $24.95 
awaink Wht Paper(Tract.Feed)..$19.95 
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CALL 

ACE 1000 Color Computer 
ACE 1 1 00 Drive & Covor for ACE 1 000 
ACE 1200 Computer with Disk Drive 
ACE PRO PACK: 

ACE 1000, Disk Drive, 

80 Column Card, ACECalc & 

ACEWriter ll 

MiiSRO«SCI 
App?» S. Franklin 

A2 $249.00 

A40 $349.00 

A70 S459.00 

C2 Controller $79.00 

C47 Controller $69.00 

RAaNA 

Elite I (Apple/Franklin) $279.U> 

Elite II (Apple/Franklin) CALL 

Elite ill (Apple/Franklin) CALL 

VIStCORP 
FOR APPLE, IBM & FRANKLIN 

Visidex $1 89.00 

Vssifile .....3189.00 

Vtoiplot , S1 59.00 

Vssiterm $89.00 

Visitrend/Plot $229.00 

VisiSchedule $229.00 

Desktop Plan $ 1 89.00 

Visicalc (Apple, IBM, CBM). . . $1 79.00 

Visicalc 4 (IBM) $209.00 

Visicalc Advanced He $309.00 

stretch Calc $89.00 

Visicorp prices forlBM may vary slightly. 
UK 

Letter Perfect Apple SI 09.00 

Data Perfect Apple $75.00 

AXLON 
Apple/Franklin 1 28K Ram . . . $299.00 
Apple/Franklin Ram Disk... $729.00 

MPC 
Bubdisk II 28K Won Volitare) ■ ■ ■ $649.00 

JOYSTICKS 
WICO 

Joystick $21 .95 

Famous Red Ball $23.95 

Power Grip $21 .95 

Three-way Deluxe $22.95 

Atari/VIC Trackball $34.95 

Apple Trackball $59.95 

KRAFT 

Atari Single Fire $13.00 

Atari Switch Hitter $1 6.00 

Apple Joystick ..$44.00 

Apple Paddles $39.00 



£)g commodore 

CBM 
8Q3S 



CBM64 
VIC SO . 

CALL ON 

Executive B4 Portable 



SS19 

...$99 



1 520 ColorPrinter/Plotter... $169.00 

1 525 80 Column Printer $21 9.00 

1526 $319.00 

1 530 Oatasette $69.00 

1541 Single Disk Drive .....$249.00 

1600 VIC Modem $59.00 

1 650 AD/AA Modem $89.00 

1701 14" Color Monitor.... $249.00 

Pet 64 $569.00 

Pet 4033 $599.00 

CBM 6032 S599.0O 

Super Pet $999.00 

81 28-80 $769.00 

BX256-80 $969.00 

2031 $299.00 

4040 $699.00 

8050 $949.00 

8250 $1199.00 

9060 S 1 999.00 

9090 $2199.00 

4023 $379.00 

6400 $1399.00 

64K Upgrade $269.00 

Spell Master $149.00 

Z-Ram $549.00 

Silicon Office $749.00 

The Manager $209.00 

Soft Rom $1 29.00 

Jinsam CALL 

Call Result 64 $1 39.00 

PROFESSIONAL, 
SOFTWARE 

Word Pro 2 Plus $159.00 

Word Pro 3 Plus $189.00 

Word Pro 4 Plus $279.00 

Word Pro 5 Plus $279.00 

Inf oPro $ 1 79.00 

Administrator $399.00 

Power $79.00 

Word Pro 64 Plus $65.00 

CARDCQ 
for VIC CO/64 

Light Pen $32.00 

Cassette Interface $29.00 

Parallel Printer Inter! ce $69.00 

3 Slot Expans. Interfac } (20). . . $32.00 
6 Slot Expans. Interfac 3 (20). . . $79.00 



APPLE/FRANKLIN 

1 . Choplifter $27.00 

2. Bank Street Writer $55.00 

3. PFS: File $89.00 

4. ViSicalS SI 79.00 

5. Home Accountant $55.00 

6. Zaxxon $29.00 

7. Most Amazing Thing $28.00 

8. Visit ile $1 89.00 

9. Fathoms 40. . , $1 9.00 

10. Deadline $35.00 

It. PFS: Report $39.00 

12. Zork III $29.00 

13. Frogger $24.00 

14. Facema.W $24.00 

15. Snooper Troops #1 $32.00 

16. Delta Drawing $35.00 

1 7. Castle Wolfenstiie $24.00 

18. Wayout $29.00 

1 9. Canyon Climber $1 9.00 

20. Bandits $26.00 



'a m w a a 'mmm a 

CBM 64 

1 . Word Pro 64 $65.00 

2. Jumpman $29.00 

3. Corf (20/64) $14.9S 

4. Microspec Data Base 84 . . . $69.00 

5. Logo 04 $39.00 

6. Microspec Gen. Ledgers* . . .379.00 

7. Zork III $29.00 

8. Frogger (64) &33.00 

9. Quick Brown Fox (20/64) ...S4&.00 

10. Shamus $29. CO 

1 1 . Deadline. $29.00 

12. Assembler 84 514.95 

13. Zork i! $29.00 

14. 3-D Man $14.00 

15. Protector $32.00 

16. Starcross $29. Ou 

17. Easy Mail 64 $14.95 

18. Grave Robber $11.00 

19. Wall Street $1 9.00 

20. Trash Man $32.00 




ATARI HOME COMPUTSRSl 




ATARI SOOXL $149 

ATARI SOOXL $seg 

ATARI 1SOOXU ...CALL 

CALL 



ATARI 400 ... 
ATARI SOO . . . 

1010 Program Recorder $74.00 

1020 40 Col. Printer/Plotter. ..$249.00 

1025 80 Col. Printer $449.00 

1 027 Letter Quality Printer . . . $299.00 

1050 Disk Drive $379.00 

1 030 Direct Connect Modem ... CALL 

CX30 Paddles $12.00 

CX40 Joystick $8.00 

CX42 Remote Joystick CALL 

CX77 Touch Tablet $69.00 

CX80 Trak Ball $49.00 

CX85 Keypad $105.00 

CX41 8 Home Manager $69.00 

CX488 Communicator II $229.00 

KX7098 Atari Accountant . . . $209.00 

KX71 01 Entertainer S69.00 

KX71 02 Arcade Champ $75.00 

ALIEN 

Atari Voice Box $119.00 

Apple Voice Box $149.00 

MEMORY BOARDS 

Axlon 32K Ram $59.00 

Axlon 48K Ram $99.00 

Axlon 128K Ram $299.00 

Intec 32K Board $59.00 

Intac 48K Board S85.00 

Iniec 64K Board (400 only). ..$99.00 

Intec Real T;me Clock $39.00 

DISK & CART HOLDERS 

Flip-n-File 10 $4.00 

Flip-n-File 50 $1 g.oo 

Flip-n-File 400/800 Cart $1 9.00 



COM 



DISK DRIVES FOR ATARI 

AT88-S^ $369.00 

AT88-A1 $299.00 

AT88-S2 $569.00 

AT88-S1 PD $469. OO 

AT88-S2 PD $669.00 

AT88-DDA $1 39.00 

AT44-S1 $579.00 

AT44-S2 $969.00 

TEXAS INSTRUMENTS DRIVE 
TX99-S1 $349.00 

NANA 
1000 Atari Disk Drive $319.00 



FLOPPY DISKS 
MAXELL 

MD-1 $32.00 

MD-2 $44.00 

FD-1(8") $40.00 

FD-2(8"DSDD) $50.00 

ELEPHANT 

S'VSSSD.... $18.95 

5'/4"SS DD $24.95 

S'/."DSDD $29.95 

VERBATUM 

5V„"SSDD $26.00 

5V«" DS DD $36.00 

HEAD 
Disk Head Cleaner $14.95 



ATARI 

1. Donkey Kong $39.00 21 - 

2. Zaxxon $29.00 22 

3. E.T. Phone Home $39.00 23 - 

4. Miner 2049er $35.00 24 - 

E. Dig Dug $33.00 25 - 

6. Choplifter $29.00 26. 

7. Donkey Kong, Jr $39.00 27. 

8. Canyon Climber $25.00 28. 

9. Snooper Troops #2 $34.00 29. 

10. Word Wizard S59.00 30. 

11. Picnic Paranoia $34.00 31. 

1? Jumpman $29.00 32. 

13. Jhamus $34.00 33. 

14. Letter Perfect $109.00 34. 

15. File rWtnager 800 $69.00 35. 

16. Preppie $24.00 36. 

17. Astro Chase $25.00 37. 

13. Blade/Black Hole $27.00 38. 

19. PacMan $33.00 39. 

20. Baja Buggies $25.00 40. 



id 



Crush, Crumbles Chomp. . . $24.00 

Wayout S27.O0 

Zork II $29.00 

Visicalc $i 59.00 

Atari Writer $79.00 

Three Little Pigs $25.00 

Upper Reaches of Apshai ... $1 6.00 

Starbowl Football $24.95 

Orelbs $26.00 

Protector $34.00 

Frogger $25.00 

Lunar Leeper $24.00 

Wizard of Wor $34.00 

Kindercomp $21 .00 

Moon Shuttle $22.00 

Home Accountant $55.00 

Temple of Apshai $29.00 

Spell Wizard $39.00 

Nautilus $26.00 

O'Rileys Mine $22.00 
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Revised edition now available! All new text added to the original atlas and gazetter... 

"What's WSiere in the Apple" 

A Complete Guide to the Apple Computer. 



This revised edition of the famous Apple 

Atlas will: 

provide you with more informa- 
tion on the Apple's memory 
than is available elsewhere 
guide you with a numerical 
Atlas and an alphabetical 
Gazette — to over 2000 
memory locations of PEEKs, 
POEEs and CALLs 



Get the most out of your Apple with the 
"MICRO ©it the APPLE 11 series,,. 

This series of books for the APPLE computer is the 
best source of Apple specific programming aids, 
utilities, enhancements, games and much more. 
MICRO has taken the best APPLE material ever 
published in MICRO magazine and brought it 
together in this three volume series. 





Volume 1 allows you to — 

Round and format numbers accurately, get 
lower-case letters and punctuation into 
Applesoft strings or play the hit game 
"Spelunker" 

Volume 2 lets you — 

Speed up machine-language programming 
using five powerful machine-language 
aids, add additional editing and I/O 
features, or play the intriguing game 
"GalactiCube" 

Volume 3 gives you more — 

Machine-language aids, I/O 
enhancements, graphics and games 

Each volume comes complete with diskette to save 
you the time of typing hundreds of lines of code. 

If you use to an APPLE computer you should own 
these beiJcs. 
Retail price $24.95 



• give you names and locations of 
various Monitor, DOS, Integer 
BASIC and Applesoft routines 
and tells you what they're used 
for 

® enable you to move easily bet- 
ween BASIC and machine 
language 

• guide you through the inner 
workings and hidden 
mechanisms of the Apple 

The Atlas and the All New Guide are now 
available in one 256-page Wire-O-Bound book for 
only $24.95. 

All Apple users will find this book helpful in 
understanding their machine and essential for 
mastering it. 
Retail price $24.95 



If you own the original 
What's Where in the Apple 
purchase The Guide to com- 
plete your edition. This 
128-page Wire-O-Bound ver- 
sion contains all the new 
material to be used with the 
memory map and atlas. 



1 ffip ' 






Don't miss this opportunity I 
to complete your J 

edition of What's Where in 
the Apple. 

Order your copy of The Guide now. 
Retail price $9.95 



FOR EASY ORDERING 
CALL TOLL FREE 
C 1-800-345-8112 

(IN PA 1-800-662-24441 
MasterCard and* VISA Accepted * 



AND now the "MICRO on the APPLE" 
series is available as a boxed set. 



All three voumes are packaged 
in an attractive box with the 110 
programs on one diskette. 

The set is available at a 20% 
savings off the individual price. 
Retail price $59.95 



"% -*•*", )Use postage paid 
, <•" card -opposite page 95 
■ J- to order your Micro 
,, • -subscription 1 today,/. 
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A New Expansion Unit 

for the Commodore, VIC-20 and 

Personal Computer 

Computer Place has announced the 
release of a new VIC-20 Expander. It 
differs from the others because it has 
such built-in features as four high- 
quality positively keyed connector 
slots for full memory expansion and 
utility cartridges; gold-plated contact 
fingers for solid, long-lasting con- 
nection; an on-board RESET button 
that allows the restart of the VIC-20 
without turning off the computer; 
four individual slot ON/OFF control 
switches, which are arranged for easy 
access and designed with fingertip con- 
trol rather than pentip; an external 
power supply hook-up provision with a 
two-way power source switch; and a 
fuse block for overload and short 
protection. 
$54.95 




fa 



Computer Place 

23914 Crenshaw Blvd. 

Torrance, CA 90505 

(213) 325-4754 



Super RAM 
for Atari 



64K of Memory 

for Your Color Computer 

Flexible Computer Solutions will in- 
stall 64X of memory in your Color 
Computet. F.C.S. will also include a 
program to copy your ROM(s) to RAM 
and instructions on how to turn the 
upper 32K of RAM on and off. Extended 
BASIC and Disk BASIC are not re- 
quired: Note: your upgraded 64K 
machine will behave like a standard 
32K machine as far as BASIC is con- 
cerned, except that you can copy the 
ROM(s) to RAM and then PEEK and 
POKE to the RAM where BASIC does 
not sit; or you can actually modify 
BASIC if you wish. Programs that are 
set up to use 64K such as Flex and 
Master Writer will have access to the 
full 64K. F.C.S. will also do repairs. 

For 4K. 16K, or 32K "D'' or "E" 
boards or 16K "F" boards. 
$89.00 plus $5.00 shipping. 90-day 
guarantee. 

Flexible Computer Service 

1410 W. North Loop #108 

Austin, TX 78756 

(512) 458-9783 



Mosaic Electronics, Inc., announces its 
second release in the RAM Select 
series. Named the Mosaic 64K HAM 
Select, this new board will plug into 
both the Atari 400 and 800. Atari 800 
owners can plug up to three Select 
boards into their computer for 196,608 
bytes of useable RAM. The Mosaic 64K 



Color Disk Drives 

for the Extended BASIC Color 

Computer 

The Color Disk Drive from Radio 
Shack turns the Extended BASIC Color 
Computer into a disk system at a new 
low price. A Color Disk Drive gives 
156,672 characters of user storage for 
program and data files. It can also be 
used with colcr-disk software. 

Easy to install, the Color Disk Drive 
controller Program Pak is plugged 



RAM Select is totaHy bus-cotnpatibie into Ae Cote Comber" cS 

for llSP -with Afari 1<V ~~A /„- */r ;- . ™ _ . _. . *"*«•»-* a «-«u.UiUgC 



for use with Atari 16K and/or Mosaic 
32K RAM boards. Atari 800 owners can 
use the board to simulate the Atari 
1200 architecture or configure the 



board for super powerful bank selec- on-line storage 
tion. The fi/LK &>W<- ic ™«,~„*:ui -.^ ™, ,. a '. 



port. The Color Disk Operating System 
is completely contained in the con- 
troller Program Pak, so the full 
156K-byte disk capacity is available for 



tion. The 64K Select is compatible with 
both 8K and 16K ROM cartridges and 
installs without solder. Used with the 
Mosaic Adapter, 48K Atari 800 owners 
will have 112KRAM. 

64K Select owners will have access 
to the "Select" club that includes a 
monthly newsletter covering new ap- 
plications for the board and a program 
library that includes selections such as 
HANDYMAN, SUPERDRIVE, and THE 
MEMORY MANAGER. I 

Mosaic Electronics, Inc. 
P. O. Box 708 
Oregon City, OR 97045 
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The first drive comes with one 
5!4-inch double-density, 35-track flop- 
py disk drive, plug-in Program Pak car- 
tridge with cable, one blank 5 M -inch 
diskette, reference manual, and 
operator's instructions. Included cable 
allows up to two drives on a system. 
The Color Disk #0 Kit $399.95 
(26-3022) 

The Color Disk #1, 2, or 3 $279.95 
(26-3023) (requires Disk #0) 

Tandy Corporation/Radio Shack 

1800 One Tandy Center 

Fort Worth, TX 76102 
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The Apple Blooms! 

for the Apple II and Is 

Hollywood Hardware's aew program 
development package installs such 
crucial professional featroes as a Global 
Program Line Editor, definable Func- 
tion Keys, Output Formatting, and 
Structured Program Ails with one 
special firmware card. The package re- 
quires no disk loading and uses no 
memory space, yet speeds editing up to 
five times, using Insert, delete, Search, 
Replace, and more. Powerful macros 
perform common tasks like Catalog 
and List with one keystroke, and you 
can program and nest custom macros to 
produce complex commasd sequences. 

Additional "&" utilities extend 
Applesoft (e.g., "IF, THEM, ELSE", and 
"PRINT USING"), perform Searches, 
Number-Base Conversions, Garbaged 
Program Recovery, and others. 

Future utilities from Hollywood 



(continued) 



Hardware (including: Renumber, 
Append, Disk Diagnostics, etc.), and 
user programs are supported with a 
documented memory manager and six 
open sockets totalling 24K of ROM 
expansion capabilities. 
$190.00 

Hollywood Hardware 

6842 Valjean Avenue 

Van Nuys, CA 914G6 

(213) 989-1204 



Apple Computer Announces A 
New Monitor 

for the Apple II Personal 
Computer 

Apple Computer, Inc. has announced a 
new monochrome video display designed 
to blend aesthetically with its Apple II 
family of personal computers. The 
newly-styled Monitor II features 
superior resolution for 80-column text 



and graphics display, an anti-reflective, 
high-contrast screen, and a tilt mech- 
anism for adjusting the screen's angle. 

The monitor's 12-inch screen 
displays up to 24 80-character lines of 
text and high-resolution graphics in 
P31 green phosphor, a color that 
minimizes eyestrain. The monitor's 
tilt mechanism and anti-reflective, 
high-contrast screen also help to reduce 
eye fatigue in a variety of lighting 
situations. 

The Monitor II can be used with any 
Apple n, Apple n + , or Apple He com- 
puter. Every Apple lie computer comes 
with a video cable that allows the 
monitor to be easily connected to the 
computer's back panel. Video cables 
that were provided with Apple II and 
Apple II + computers also work with 
the new monitor. 
$229.00 (90-day warranty) 

Apple Computer, Inc. 

20525 Mariani Avenue 

Cupertino, CA 95014 

(408) 973-2042 



D 60 COMMANDS TO 
COMMODORE 64 WITH: 



ahanced disk operating system adds 40 NEW commands to both 
BASIC and DOS! Includes easy to use Disk Commands, 
HIRES Graphics, LORES Graphics, Text and Sprites. 



A powerful machine code monitor which adds 20 NEW commands to 
examine memory, disassemble, text dump, miniassembler and MORE! 

ONL Y $ 39 95 MINIMON available separately for 



$19.95 



DUST COVERS 

Attractive, browa vinyl covers. 

COMPUTER or DRIVE $7.95 

OLD STYLE DATASETIE $3.95 

NEW STYLE DATASETTE $3.95 

1525 PRINTER $7.95 

mmmmmxmwm 



Send for our FREE catalog 
of the lowest prices for; 

CBM-64 GAMES • NEW PRODUCTS 

VIC-20 GAMES • BOOKS 

AND MORE! 




ENT€B€STiNG SOFTUJ£*R€ 

21101 S. Harvard Blvd. 

Torrance, CA 90501 

(213) 328-9422 

Visa/MC/Chcck/Money Order — Add $2.00 

CA residents add 6'/i% sales tax 

DEALER INQUIRIES INVITED 

mmmmmmmmmmmmm smm 
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The interfacer by Data-Cue 
for the Apple II 

The Interface* by Data-Cue provides 
Apple II owners with an affordable 
solution to interfacing and com- 
munications. The InterFacer provides 
one fully programmable serial com- 
munications port. The port supports 
synchronous /asynchronous com- 
munications as well as both the RS-232 
and the RS-422 electrical standards. 
The InterFacer also provides two com- 
plete parallel printer ports. 

The InterFacer comes with software 
drivers for printers as well as a terminal 
emulator for communications with 
remote computers. This allows the 
connecting of a modem, high-speed 
data processing printer, and word- 
processing printer to the Apple H or 
Apple He all at the same time using a 
single board. 

$95.00 

Data-Cue 

5696 HWY 431 South 

Brownsboro, AL 35741 

(205) 883-2933 



The RAINBO-256 Analogue RGB 
Video Interface 

for the Apple II + and Apple He 

The RAINBO-256 is a high-resolu- 
tion analogue RGB interface card 
designed to interface from Apple 11+ , 
lie computers to Electrohome, Taxan, 
and other similarly interfaced color 
video monitors. 

Conventional video monitors are 
composite in nature, meaning that the 
video signal is not separated into red, 
green, and blue signals (thus the name 
E>GB). Further, using conventional 
monitors will limit you to the number 
of colors available at the output of 
the computer — in Apple's case only 
16 colors. 

The RAINBO-256 eliminates a 
number of problems inherent in the 
video circuits of the Apple, Franklin, cr 
other look-a-likes. The video output 
generally is not 'clean,' meaning that 
there is substantial smearing among 
the colors. Further, when in the color 
hi-res mode, text takes on a variety of 
hues instead of being white like they 



should be. The RAINBO-256 solves all 
of these problems in one slot. 

The RAINBO-256 is also program- 
mable, unlike any other RGB board on 
the market today. Instead of being 
limited to the computer's color 
capabilities, the RAINBO-256 may be 
programmed for 256 individual colors 
by addressing 16 additional memory 
locations that the RAINBO-256 adds to 
the Apple. 

As the output connector differs 
from Taxan and Electrohome, when 
ordering the RAINBO-256, specify the 
model you wish: RAINBO-256-E for the 
Electrohome or RAINBO-256-T for 
the Taxan. 

The RAINBO-256 in either con- 
figuration retails for $279.00 and is 
available from your authorized 
MICROTEK dealer. 

$279.00 

MICROTEK 

4730 Viewridgc Avenue 

San Diego, CA 92123 

(619) 569-0900 

JMCftO 
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Software Catalog 



New Weather-Sensing 
Package for Commodore 
64 and VIC-20 

Designed for use with 
Commodore 64 and VIC-20 
computers, the new HAWS 
(Home Automatic Weather 
Station) from Vaisala com- 
bines a professional quality 
weather sensor with a 
creative software package 
that teaches, forecasts, and 
graphically displays weath- 
er. More than a toy or 
game, HAWS utilizes the 
same weather sensor used 
by weather services in 60 
countries worldwide. In 
addition, HAWS represents 
the first personal computer 
application utilizing an 
external sensing device, 
allowing the user to in- 
teract and analyze input 
that is not contained in 
his computer or the soft- 
ware itself. 

HAWS allows the user 
to monitor weather condi- 
tions inside or outside the 
home as well as allowing 
the user to interact with the 



software program to help 
predict and cope with 
changing weather condi- 
tions. HAWS even allows 
the user to rate his/her 
forecasting performance 
against the local weather- 
man's predictions. 

HAWS is an excellent 
educational tool for 
teaching meteorology con- 
cepts and for learning about 
weather, either in the home 
or in the classroom. In addi- 
tion, HAWS can also be 
used to monitor and control 
indoor living space, 
greenhouses, and office en- 
vironments, etc. 

Priced at $199.95, the 
package includes sensor, 
choice of cassette tape or 
floppy disk program, 
15-foot cable with connec- 
tor for the computer, and 
complete user manual. For 
more information in- 
cluding dealer inquiries, 
write or call Consumer Prod- 
ucts, Vaisala, 2 Tower Of- 
fice Park, Woburn, MA 
01801; (617) 933-4500. 




A Powerful Software 
Tool from Soft Path 
Systems 

BRAINSTORMER for 

the Apple H with CP/M is a 
powerful software tool for 
generating potential solu- 
tions to complex problems. 
It works by building a 
description of a problem in 
terms of the themes and 
variations that affect its 
solution. The description of 
the problem is "probed" by 
BRAINSTORMER to gen- 
erate ideas about potential 
solutions to the problem. 
The user refines the process 
by controlling the occur- 
rence of particular themes 
and variations until a suffi- 
cient quantity of potential 
solution strategies is pro- 
duced. Up to ten billion 
"idea probes" can be gen- 
erated for any user-speci- 
fied problem. 

Potential applications 
for BRAINSTORMER in- 
clude increasing flexible 
thinking, discovering new 
products, targeting new 
markets, and exploring 
organizational problems. 

BRAINSTORMER is 
available for TRS80 I, m, 
and IV and for CP/M 
80-column monitor ma- 
chines including Apple II, 
Osbome I, and Kay-Pro IL 
All systems require 
MBAS1C, two drives (514 
SS or SD only), and 48K. 

This friendly and 
helpful package, complete 
with User's Guide and ex- 
ample files, sells for $50.00 
if used on a single machine. 
A program with concurrent 
group license for 2-10 
machines used by a single 
organization costs $100.00. 
It is available from Soft 
Path Systems, c/o Cheshire 
House, 105 North Adams, 
Eugene, OR 97402; 
(503) 342-3439. 



Store Tape-based 
Machine-Language 
Programs on Disk 

Di>& LOADER for the 

TRS-80 Color Computer 
loads most 16K machine- 
language programs from 
tape to disk. This new pro- 
gram takes tape-based 
machine-language pro- 
grams, stores them on disk, 
and allows them to run 
automatically. DISK 
LOADER is especially 
designed to load programs 
that interfere with normal 
disk operation. It saves 
multiple copies, allows 
renaming the program, and 
automatically gives pro- 
gram load and execute ad- 
dresses. DISK LOADER is 
supplied on tape with easy- 
to-operate instructions and 
works with any 32K or 64K 
Color Computer disk 
system. 

Price is $23.95 ppd from 
Stuart Hawkinson, 6695 S. 
W. 203rd Court, Aloha, OR 
97007. 



Three Game-Format 
Programs to Strengthen 
Math Skills 

Arith-Magic for the 
Commodore 64 with 64K 
and one disk drive or tape 
recorder consists of three 
interactive; game-format 
programs that strengthen 
basic math skills for 
elementary/intermediate 
level and above. Arith- 
Magic provides enrichment 
opportunities for abler 
students through ex- 
perimentation with 
mathematical patterns. 

Price is $35.00 for one 
disk or tape and manual. 
Available from Quality 
Educational Designs, P. O. 
Box 12486, Portland, OR 
97212-0486; (503) 287-8137. 
(Continued on page 92} 
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TICTOEY SOFTWABE 





You stumbled into the nest of the Cyglorx 
and find yourself fighting off robot tanks 
guarding the Cyglorx eggs. You think you 
have everything under control and then 
the eggs start hatching. Commodore 64 
version features 4 different screens. 
Available for COMMODORE 64 and VIC-20. 
Played with JOYSTICK 



SISJS 




The creator assembled a massive army of robots and insects 
to take revenge on the earth. Destroy insects, get treasures, and 
get the neutron bomb deactivator. Battle robots and destroy the 
neutron bomb before it annihalites your city. Miss and you must 
face the mutants. Features 4 different screens. 

Available for COMMODORE 64. Played with JOYSTICK. 

l aMMITl ffif TOiEMM mm 



Journey into the most complex and dangerous fortress ever 
build by the cieator. You will encounter deadly robots, skulls, 
lakes, avalanches, false creators, and a creature who roams 
256 rooms relentlessly pursuing you. 
Available for COMMODORE 64. Played with JOYSTICK. 




An adventure in the Old West. Journey back with us into 
the days of Jessie James and Billy the Kid where the only 
form of justice was a loaded revolver and a hangman's noose. 
In thL full-length text adventure, you 
play the role of Bounty Hunter, battling 
against ruthless outlaws, hostile Indi- 
ans, wild animal and the elements of 
the wilderness with only your wits and 
your six gun. Average solving time: 20- 
30 hours. If you love adventures, this 
one is a real treat. 

„ Available for COMMODORE 64 and VIC-20 
(with 8K or 16K expander). Played with Key- 
board. 



W 



usu 



Earth's surface is threatened by collapse from a strange 
group of creatures who bore out the earth's crust to make 
their dens. Your objective is to enter the creature's habitat and 
spin the invaders to death. 
Available for COMMODORE 64. Played with JOYSTICK 



Programs for the VIC-20 
and the COMMODORE 64. 

Alt games available on 
TAPE or DISK. 

All Arcade-Style games 

are packed full of 

MACHINE CODE. 



Climb ladders, avoid the barrels the cra- 
zy ape is rolling at 



you, and rescue the 
damsel. Commodore 64 
version features 4 dif- 
ferent screens! 
Available for COMMODORE 
64 and VIC-20. Played with 
JOYSTICK or KEYBOARD. 



*vi 



W<?h. 




Introducing the first GRAPHIC ADVEN- 
TURE ever available for the VIC-20 or COM- 
MODORE 64! With realistic audio-visual effects, 
you explore an old deserted graveyard and 
actually see the perils that lie beyond. 
Available for COMMODORE 64 and VIC-20. Played with 
KEYBOARD. 



s" 



Don't let the bullies catch you as you 
gobble the goodies! This program has 8 
screens and still fits in the 
* standard memory. 
• ■&§« Available for COMMODORE 64 
js- ^* and VIC-20. Played with JOY- 
STICK or KEYBOARD. 






Illustrations: Elizabeth Hauck 



Check your LOCAL DEALER or order directly. 

ORDERING: We accept personal checks, money orders. 
VISA and MASTERCHARGE. Charge orders ptease in- 
clude number and expiration date. Overseas orders 
please use charge or have check payable through a 
U.S. bank. Add $1.50 postage and handling per order. 
PA residents please add 6% sales tax. 



H 



BOfTWAW* 



VICTORY SOFTWARE SNC. 

7 Valley Brook Road, I'aoll, PA 19301 
(215) 296-37S7 
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KCDGE PODGE Now 
Available for the Atari 



DYNACOM? an- 
nounces that HODGE 
PODGE is now available 
for the Atari . HODGE 
PODGE was originally 
written for the Apple and 
was well accepted by both 
parents and teachers. It was 
given top grades by several 
reviewers and has been in- 
cluded in many elementary 
school curricukims. 

The Atari version of 
HODGE PODGE is almost 
an exact translation of the 
Apple version. All of the 
sound, color, and graphics 
features have been retained. 

The Atari version re- 
quires 32K (cassette), 48K 
(disk) and will ran on an 
Atari 400, 600, 800, or 1200 
having sufficient memory. 
Recommended age range: 2-7. 



Price: $14.95 (cassette), 
$18.95 (disk). For more in- 
formation contact DYNA- 
COMP, Inc., 1427 Monroe 
Ave., Rochester, NY 14618; 
(716) 442-8960. 



Oh No! It's TROMPERS 

TROMPEES from 
Avant-Garde is a new game 
for the Apple, Atari, and 
Commodore. Hundreds of 
practical-joking space crit- 
ters are falling from the 
sky! Can you help Arnold 
Stump, the local dog catcher, 
snare them before the? take 
over the entire city? Amed 
with only a net and your 
own skills, it's you and Ar- 
nold versus TROMPERS! 

Available froia your 
local dealer or from Avant- 
Garde Creations, Inc.. P.O. 
Box 30160, Eugene, OR 
97403; (503) 345-3043. 



A G*ade- and Attendance- 
Management Package 

GradeCalc is a grade- 
and attendance-manage- 
ment package for the Apple, 
Atari, and Commodore 64. 
It is designed to free the 
teacher from many of the 
time-consuming tasks of 
record keeping. Grade filing 
and reporting are set up in a 
flexible manner to accom- 
modate any teacher's ex- 
isting gradebook format. 

With GradeCalc the 
teacher has on file all the 
raw grades and assignment 
information. This file can 
then average grades using a 
variety of methods. 

GradeCalc maintains 
attendance records in the 
same flexible manner as 
grade records. The teacher 
can recover a variety of 
reports based on the atten- 
dance records. These 



reports include cumulative 
totals of all attendance 
records and problem reports 
based on excessive 
absences of other problems. 
The GrsdeCalc package 
is available on disk for 
Commodore 64, the 40- or 
80-column CBM or PET 
computer, Apple II, Apple n 
Plus, or Apple He with at 
least 32K memory, and for 
the Atari 400, 800, or 1200 
with 40K of memory. The 
price is $29.95 for all ver- 
sions except the Atari, 
which is $34.95. Contact 
Tamarack Software, Inc., 
Water St. Darby, MT 
59829; (406j 821-4596. 



A Color Compiler for the 

T1S-30C 

Computerware in- 
troduces THE COLOl 
BASIC COMPILER for the 

(Continued on page 94) 




ViC-20 USERS: Get Serious With A PRQMQLIEE&i 



• A cartridge development system • Comprehensive manuals 

• Program from Commodore VIC-20 keyboard into built-in 4K 
ROM emulator • Jumper to target ROM socket 

• Test programs in circuit © Fits EXPANSION PORT 

• includes Hexkit 1.0, a powerful 100% machine code editor/de- 
bugger utility program that makes coding for 8-bit Micros a snap. 

• Built-in EPROM programmer and power supply 

• 3urns & runs EPROMS for the Commodore VSC-20, too 
Programs 2716, 2732, 2732A, 27C16, 27C32, adaptable to 2532 & 2764 

FRQftfiEJUEEfci CARTRIDGE COMPLETE ONLY$19S 



Promqueen 64 $299.00 

8K board with 1 EPROM $29.95 

16 board with 1 EPROM $39.95 

8K board with 1 EPROM. C54 $39.95 




$399.00 
$39.95 
$49.95 

$49.95 



GLQyCESTEH 

carapuTEB.ML 



Send for Free Brochure 



Distributed in U.S. by Arbutus Total Soft, In©., 4202 Meridian, Suite 214, 
Bellingham, WA 98226. Phone 800-426-1253, in Washington 206-733-0404 

Distributed in Canada by IBC/Distribuiion Canada,4047 Cambie St., 
Vancouver, BC V5Z 2x9. Phone 604-879-7812 
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ASspa Computer Jne. 



Price-performance leader. Includes Z80A, 8" ds/dd drives, 3 
serial + 1 parallel port, wtoehester port, networking Prices 
start bfciow $1500. DEALER / OEM indies invited 



7.90 



6502 

8502A/6512A 

6520 P!A 

6522 VIA 

6532 

2114-L200 

2716 EPROM 

2532 EPROM 

6116 2KX8 CMOS RAM 

4116 RAM 

4164 RAM 

Zero Insertion Force 24 pin Socket |Scanbe^. 



7.45 10/6.95 50/6.55 100/6.15 

8.40 10/7.95 50/7.35 100/6.90 

5.15 10/4.80 50/4.45 100/4.15 

6.45 10/6.10 50/5.75 100/5.45 

~" 10/ 7.40 50/7.00 100/0.60 

2.«5 25/2.30 100/2.15 

""" 5/4.50 10/ 4.00 

5/6.75 10/6.45 

5/6.75 10/6.45 

8 for 14 

6.50 

2.00 



4/JO 
0.90 
6.90 



Hewlett Packard 

Wjjteor call_ for prices. 




FREE SOURCE MEMBERSHIP WITH SIGNAUPJ 

All Signalman Modems are Direct Connect and include cables 
io connect to your computer and to the telephone. Signalman 
Modems provide the best price-performance values. 
Outer and OEM IspMss \mM 

Mkmntem (79) 55 

8S232 or Atari Cable for Vofcsmodem 3 

Mark 1 3S232 (99) 59 

Mark VI for I BM Personal Computer (279) 1 79 

Mark VII Auto Dial/Auto Answer (1 59) 89 

Mark XII Smart Model 1200/300 (399) 295 



DC HAYES Smsrlmodem 

DC Hayes Smarfmodem 1200/300 



219 

529 




mm PEED for VIC 
ftpple Emulator for Commodore 64 
8TAI Statistics Package for £64 
Sbiis Oak 2 Level Stand fsr C64 ar VIC 

CG4/VIC Switch (networking) 
BACKUP RO taps eopier fer 884 or W 
CARDBOAKD/6 Mothe'board - VIC 
CARDBOARD/5 Motherboard - C64 
CARDPRINT Printer Interface - C64/VIC 
CARDB0ARD/3s Motherboard - ViC 
CARDCO C64/VIC Calculator Keypad 
CARDRAM/16 RAM Expansion - VIC 
Complete GAHDC0 Lists in stock 
CIE and VIE IEEE Interfaces in stock 
BASM Compiler/Assembler for C64 



173 

Call 

9§ 
29 
125 
29 
64 
56 
64 
32 
32 
64 



APPLE— FRANKLIN ITEMS 

KRAFT »?pfe Jsystisk 40 

1SK BAM Card for Apple 59 

Solid Oak 2 Level Stand for Apple 29 

Serial Card for Apple 99 

KPC HAM/80 column care" fer HE JAP/TJCF) 1 30 

Z80 Softcard and CP/M (Microsoft) 235 

RANA Elite I with Controller 389 

Parallel Printer Interface/Cable 79 

Apple Dumpling (Microtek Printer Interfac* 1 1 g 

Apple Oumplia] wits 1 6K Buffer 1 60 

Grappler + Interface 129 
Kraft Products for Apple in stock 

DC Hayes Micromodern II 299 

PFS: File 100 

PFS: Report ifjQ 

Vldex 89 Column Card 209 
Kavden Softwam fer £ppte 20% OFF 

Apple Sloe Desk n 



2i*5-$2^-7727 ; /-* 

•^25*2 B^thieh'jem Pike;, 
polmar. PA189T5 
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S3G us for Personal, Susinass, and Educate! 
repinmwnts. Eduwrissia! OiscbiiRts ttvsilable. 

Allows you to connect up to 30 CBM/PET Computers to 
shared disk drives and printers. Completely transparent tc the 
user. Perfect for schools or multiple word processing con- 
figurations. Base configuration supports 2 computers. Addi- 
tional compter hookuos $100 each. 

COHPACK/SfCP" $116 

Intelligent Terrains! Fackags for PET, COM, CS4 

Includes ACIA Hardware / STCP Software 

Includes case, power supply, full 3-bit transmission, and 
switch selectable character conversion to ASCII. 

VIDEO HMNCEI i for ImmimJi 53 

Realize video quality equal or better than composite monitor 
using standard color TV. 

KaEERlMEiiioCfJn^ 

Provides big screen capability for business applications. 



Controller f lor C64 as welt) SO 

combine with BSR modules for home or business control 

C0II3ENSE Remote Senskig As!apterforCS4 or¥lC 35 

COM VOICE Sptfeesfeer fer C64 or VIC 139 

includes software for test to speech, pitch, etc. 
mn SLOCK Real Time Clock with battery eackap 45 

KIC 20 Pradacts mi Software in steels 

Thorn EMI Software UMi Software 

ABACUS Softwaie HES Software 

18K RAM for VIC 64 Vanilla Pilot 

SICT9BY Software lor VIC and C64 
Strut Sweepers (ViC) 12 Kongo Kong (VIC) 
Night Rider (VIC) 11 " 



Annihilate 
Adventure Pack II 
Educational Pack I 
Strategy Pack I 



Cosmic Debris tVIC) 
16 Adventure Pack I 
16 Metamorphosis 
11 Trek 
18 Grave Robbers 



27 

16 
12 
16 
11 
12 
12 



PAPER CLIP Word Processor 1 09 

OBACLS Data Base from flatteries Included 125 

Commodore 64 Programmers Re'jrence Guide 16 

ttrsCness for C64 — 8 bs& of pliv 1 9 

Compute's Fust Book of PiET/CBM 1 1 

£S4sr BIG SWITCH 125 

POWER ROM Utilities for PET/CBM 78 

ionlPro3+/84 69 

WordPro 4+ -8032, disk, printer 295 
SPELlMASTEfi spelling tihecker for WordPro 

VISICALC for PET, ATARI, or Apple 189 

PET-T8AX PET !a Epson Srapsies Software 40 

SM-KIT ennanced PET/?;BM ROM Utilities 40 

Programmers Toolkit - PET ROM Utilities 35 

EASY CALC for C64 05 

PET Spacemaker II ROM Switch 36 

COPYWRITER Word Processor for C64 69 

2 Meter PET to IEEE or IEEE to IEEE Cable 40 

Dust Cover for PET, CBM, 4040, or 8050 8 
CntC Interfaces (ADA1II00. ADA1450. SADI in stoclj 

Programming toe PET/GUM (Compute)) — R. West 20 

Compute! First Book of VIC 1 1 

HES MODEM with Software 65 
HES Software mi Hardware in stock 
UMI products in stock 

BimiWiiytWrm $110 

Database, ReportWriterwjth<^cujatfon^aj[ing Lists^ 

F?RTH l«rPET/C64 ful ilG model"^ Cargill/Riley $50 

MetaceapilBrfgrFOBTlll for Independent obiectcode 30 



KMMM PASCAL IV.1 lor PET/C64 

EARL far PET/CBM Disk-based ASSEMBLER 



65 



Super erapMes — BASIC LiR|na|e Eitossltns 45 

Fast rehire lang^egrapMra routines for PET/CBM 

BAM/BOM for PJf/CBM " 1K$75j]8K"$90 

Ceaeadore patb Oorcile Saf twaro for CM* " 75 
BHg l aUJ-IJ- 



DSSK 
SPECIALS 



Scotch (3M) 5" ss/dd 
Scotch (3M) 5" ds/dd 
Scotch (3M) 8" ss/sd 
Scotch (3M) 8" ss/dd 




10/2.20 50/2.00 100/1.95 
1C/3.05 50/2.80 100/2.75 
10/2.30 50/2.10 100/2.06 
10/2.85 50/3.70 100/2.65 



m stuck VERSITIM DISKS 

Write for Ossisr and OEM prices. 

Sentinal 5" ss/dd 10/ 1.90 50/ 1.85 100/ 1.S0 

Sentinal 5" ds/dd 10/2.55 50/2.50 100/2.45 



We stock Bpait 1ssks 



Wabash 5" ss/sd 
Wabash 5" ss/dd 
Wabash 8" ss/sd 



10/1.60 50/1.55 100/1.45 
10/1.90 50/1.85 100/1.75 
10/2.0G 50/1.95 100/1.85 



We stock MAXEL DISKS 

Write for dealer and OEM prices. 

Disk Storage Pages 10 for $5 Hub Rings 50 for $6 
Disk Library Cases 8"— 3.00 5"— 2.25 
Head Cleaning Kits 11 



CASSETTE TAPES- 

C-10 
C-30 



-AGFitPE-611 PREMIUM 

10/.61 50/.58 100/.50 
10/ .85 50/ .82 100/ .70 



DMMHiEU BACKUP POWER SOURCE 265 

Batt&ry back up UrafflemHaiWe Power Supply with surge and 
ffiffiifffiffiS-. ?fe jnswerto vour Power problems. 

Zenith ZVM-121 Green Phosphor Monitor 95 

Zenith new color and monochrome monitors in stock 

MultiPlan— IBM or Apple 1 85 

Quadboard for IBM available 

Peaetat 5000 Software Package 219 

PFS Software for IBM and Apple In stock 

VOTRAX Personal Speech System 280 

VOICE BOX Speech Synthesizer (Apple or Atari) 

CompuServe Subscription (5 hours free) 35 

Dyaax (Brother) OX-1 6 Daisy Wheel Printer 469 

Itoh Prowriter Parallel Printer 379 

Panasonic 1090 Printer witk Cerrespondwce Mode 319 

USICompuMOD4 RF Modulator 39 

Daisywriter 2000 with 48K buffer 1 050 

Many printers available (Gemini-Star, Brother, OKI, etc.) 

We Stock AMDEK Monitors 

Amdek DXY-100 Plotter 590 

APProducte 15% OFF 

Watanabe Intelligent Hotter 990 6-pen 1290 

BROOKS 6 Outlet Serge Syppressor/Nelss Filler S4 

We stock Electrohome Monitors 

Syaertek SVM-t Microcotnpater 189 

^MPiyMiPWARE PRICES DISCOUNTED 



Pa. ^soaic 12" Monitor (20 MHz) with audio 
Panasonic CT-160 Dual Mode Color Monitor 



139 
259 



OSI IHdeo Monitors—green or AMBER 20 MHz nf-res. 
?j»l8r end SEM inquiries invited 



KferjiMr 



systems 



HEKO f Robot (face, assembled) 2145 

229 Terminal (SEC mi AOM ceiapstible) 630 

ZT-1 Intel TermiBil with Serial Part 340 

Z! 00 1 6-liV8-Bit Systems in steek CALL 

We stock eitire Zenith line. 




SPECIALS 



j liters 



:pa(?toaianc;e'pf:X 

id; ««tf a. -forv mail;.' mkppM , "Prick p'lufje"" cji^ (fccoift^: 

(jiiTdr p/ices.%hghtly.hig^ .Prices stfeje£tto'^nQe ::*!>, '•./;'/ ■« 
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Radio Shack Color Com- 
puter with 32K and at least 
on© disk drive. If you have 
ever written a BASIC pro- 
gram only to find that it 
runs too slow to provide 
any action and you haven't 
had the courage to leam 
assembler, then the Color 
Compiler is the answer to 
your problem. The Color 
Compiler lets you write 
your program in easy 
BASIC and then converts it 
into fast machine language. 
After you run your compiled 
program, you may find it 
necessary to add some 
delays because the Color 
Compiler will make your 
program run an average of 
40 times faster. 

The Color Compiler 
features a total of 46 com- 
mands and functions. Most 



of these are a subset of Ex- 
tended Color BASIC. Ex- 
cept for a few restrictions, 
you can program in BASIC 
and assume that anything 
is legal and the Color Com- 
piler will understand. The 
Color Compiler generates 
position-independent code 
so that you may put the 
compiled program any- 
where in memory, in- 
cluding into a ROM-pack! 
Don't be misled by the low 
price — this is a very 
powerful development 
package. 

Price is $39.95 (plus $2 
shipping) and is available 
from Computerware 
dealers or directly from 
Computerware at Box 668, 
4403 Manchester Ave., 
Suite 103, Encinitas, CA 
92024; (619) 436-3512. 



Two Sports Strategy 
Games 

Parr Programming in- 
troduces two sports 
strategy games on cassette 
for the Commodore 
WC-20. In Baseball Adver- 
sary, you make tough mana- 
gerial decisions against 
your computer opponent. 
Additional players on the 
bench allow for pinch hit- 
ting and relief pitching. 

Football Adversary places 
you in the role of head coach 
opposing the computer. Fea- 
tures include a selection of 
31 plays and a display of 
half-time game statistics. 

Baseball Adversary re- 
quires no memory expan- 
sion and retails for $10.95. 
Football Adversary requires 
8K memory expansion and 



retails for $14.95, Available 
postpaid from Parr Pro- 
gramming, 2664 Tyler St., 
Gary, IN 46407; (219) 
885-0611. 



ARCADIA MANIA 

Perseus Programming 
presents a fast-action game 
for the Commodore 64 en- 
titled ARCADIA MANIA. 
Nineteen different waves of 
creatures await your attack. 

For more information or 
to order at $24.95 each, 
write to Perseus Program- 
ming, 9311 Avery Rd., 
Broadview Heights, OH 
441A~. 



4MO10 
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DUAL ACIA BOARD 

Essential for telecommunications. Two 
independent full duplex RS232 channels. Uses 
6551 ACIAs. Crystal-driven TTLclock. Supports 
TTL level or RS232C <+/-12v). Supports all 
standard baud rates to 19,200. Can support 
interrupt-driven I/O. Demonstration source 
code provided. 



® COM-1 



55 

53 




REAL-TIME 
CLOCK/CALENDAR 

Demonstration software with source 

and data sheet. Uses the OKI 

MSMS832. Provision for user-supplied 

battery backup. 

On board crystal for accurate 

timekeeping. 

CMOS circuitry • Low power Year, 

month, date, day-of-week, hours, 

minutes & seconds! 12/24 hour • Leap 

Year correction 4 interrupt rates 

available. 

GLK-1 $60 




I/O EXPANSION BOARD 

For microcomputers that use 6522 VIAs for I/O and do 
not provide full address decoding on board. This board 
has physical space for four esWtbnal 6522 VIAs, and 
provides additional decoding for a total of 16 devices. 
Two versions of this board are available. The VOX- 122 
mounts above, and directly plugs into, an onboard 6522 
socket, and relocates the original VIA to the expansion 
board. Where there are space limitations, the l/OX- 222 
uses a dip header and an 8" cable for remote installation. 

f/OX-222 $72 



EPROM PROGRAMMER 

Particular combination of hardware and 
software (machine language) used results 
in VERY LOW programming overhead. 
Flexible design; supports future EPROM 
designs. Will program EPROMS up to 
256K bits (32K bytes). 
Programs all these EPROMS: 

2508, 2516, 2532, 2564. 2758ft. 

27588. 2726, 27C16, 2732, 2732A, 

27C32, 2764, 27C64. 27128, 

MCM68764 
All personality module* INCLUDED. 
Menu driven program for easy operation. 

PRG-1 $250 



32K CMOS STATIC RAM BOARD 




I/OX-122$60 




Dealer end Distributor Inquires Invited. 

P.O. Box 1019 © Whittier, CA 90609 

(213)941-1383 




Models MB- 132/32K, $299 
/16K 9241 ,/8K 9197 
FosturGS* 

• 200n« Low Power CMOS. STATIC RAM 

• Extends your expansion connector 

e Plug compatible with 27t6 EPROMS 

• First 8K are jumper selectable 

e Entire board may be bank-switched 

All boards feature G-IO glass/epoxy, solder 
mask, and gold plated connectors. All boards 
carry a full 1-year limited warranty. When 
ordering specify SYM or AIM version; add S e> 
H In U.S. end Canada 12.50. overseas $4.00 
|U8). Calif, residents edd sales tax. 
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ft SANYO MONITOR SALE!! 




*W(tyumn$x 24 lines 
*Mi0ii t .t$fi display 

• East to read - no eye strain 

• Up front l>rig|itiiess control 

• Highf^bliittoh graphics 

• Qui^k start - fioffi&eiffing 

• Reg jj Sated power supply 

• Attractive metal cabinet 

• UL and FCC approved 



• 15 Day Free Trial - 90 Day Immediate Replacement Wmarif§ 



%® Screen - Green 
12" Screen - Green ' 
12" Screen - Amber 



Text Display $ 7§.$(f 

rext Display (anti-reflective screen) $ i 
Text Display (anti-reflective screen) $119.00 



Bi&piBf Monitor® From $mfo 

With the need for computing power growing every day, Sanyo has 
stepped in to meet the demand with a whole new line of low cost, high 
quality data monitors. Designed for commercial and personal com- 
puter use. Ail modeis come with an array of features, including up- 
front brightness and contrast controls. The capacity 5 x 7 dot 
characters as the input is 24 lines of characters with up to 
SO characters per line. 

Equally important, all are built with Sanyo's commitment 
to technological excellence. In the world of Audio/Video, Sanyo is 
synonymous with reliability and performance. And Sanyo quality is 
reflected in our reputation. Unlike some suppliers, Sanyo designs, 
manufactures and tests virtually ill the parts that go into our products, 
from cameras to stereos. That's an assurance not everybody can 
give you! 



Official Vkkm Products 
ofthetosAng^es1984 Olympics 





• LOWEST PRICES* 15 ©AY FREE TOIAL »S©OAYFKIE REPLACEMENT WAR^A^TY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS » FREE CATALOGS 



t Add $10.00 for shipping, handling and Insurance. Illinois residents? 
i please add 8% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII 1 
| orders.WSOONOTEXPORTTOOTHERCOUNTRIE8. { 

| Enclose Cashiers Check, Money Order or Personal Check. Allow 14 § 
| days for delivery, 2 to ? days for phone orders, 1 day express mall! jj 
| Canada orders must be in U.S. dollars. Visa • MasterCard • C.O.D. j 




ENTERPRIZES ''-m^^^m^&_ 

80X 550, BARRINGTON, ILUNOIS 80010 
Phdite 312/382-5244 to orcter 
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ave 20% and 

we'll send you a 

BONUS GUT 

with your subscription! 
Fill out the attached 



»,jfii :"• .,><<, '■ | ,- /'{jj,'rcC.(j?!>l 



l 


CHOOSE FROM? 


mL,^::: : my ; m 


|y*vvSvf 


• Best of MICRO Vols. 2 and 3 


^r T a \&0<r\ &' 


\WMf$ 

• 


An $18.00 Value — FREE! 

of ;' 


r - rnufvi 




* MICRO CalC foe Apple, Atari, TOS-80, of C64 : 


|H|fJH • '>V/'?; 


''..'■'■ '"'•■':'■ 


A $14.95 Value — FREE! 




■ 

!K5 


Or 

* What's Where in the Apple % 
A $24,00 Value £01 Only $12>00jj 




;if$i 


Wfigff 


i Don't Miss 


' -;-' : ,.-. :• H-.'^"'""-:; ■''."•"■'" ""'• > .•"■■•'^' .* 3i -^#^' 
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4Jse These Postage-Paid Cards To Or 






SAVE 

20%I 
Use This 
Postage-Paid 
Card To 
Subscribe... 



ToII'Free 

1-800345-8112 

(in PA t-S00-@S2-2444) 
(Mas! wCard am* VISA Accepted) 




SAVE »°/o 



□ YES! Enter my subscription to MICRO for jyst $24.00! 
and with it send me the BONUS GIFT I've checked. 

D Best of MICRO Volumes 2 and 3. An $18.00 Value — FREE! 

□ MICRO CaSc for □ Apple O Atari DTRS80 DC64 

A $14.95 Value — FREE! 

D What's Where in the Apple at Half Price! A $24.00 Value — Oniy $12,00! 



Please rush my subscription and the BONUS GIFT I've checked to: 



Name_ 
Address . 
Clty_ 



.State, 



(Allow 6-0 weeks for delivery) 



.Zip. 



I'm paying by: D Check . a MO 
D VISA □ MC 

Total Enclosed: $ 



VIsa/MC*. 
Exp. Oats:. 







NEW for VIG-20 Users! 

last g Y©yr VIC-20 

With 3 BASIC Projects 

A book that makes learning to program your 
ViC-20 fun! Contains 8 projects and programs. 
Games, utilities — even a ViC-20 version of 
"VisiCaic." All 8 programs on cassette to help you 
learn faster. 

D Mastering the VIC-20 @ $19.95 



Please rush the MICRO Books I've checked above to: 

Name____ . 

Address . 

City ___ ___ state Zip. 



(Allow 6-8 weeks for delivery) 



NEW for OSI Users! 
MICRO on the OS! 

Includes Machine-Language enhancements and 
BASIC Aids, hardware modifications for 
enhanced/reversed video, programs for control 
code and upper/lower case entry. A valuable pro- 
gramming tool. 

□ MICRO on the OSI @ $19.95 



I'm paying by: □ Check □ MO 
D VISA □ MC 

Total Enclosed: $ 

(Add $2.00 s/h per book.) 



Visa/MC#_ 
Exp. Date:. 




t Sellers 



The Best of MICRO 

Wake your computet reference 
library complete by adding the "Best 
of MICRO" to your present book col- 
lection. Each volume full of articles 
and programs pulled from the pages 
of MICRO. Excellent software at a 
very low price! 

D BOM Volume 2 @ $8.00 
Q BOM Volume 3 @ $10.00 



What's Where 
in the Apple 

Revised new addition with text added 
to the original atlas and gazetter. All 
Apple users will find this book helpful 
in understanding their machine and 
essential for mastering it. 
□ What's Where In the Apple 

@ $24.95 
D The Guide @ $9.95 



Please rush the MICRO Books I've checked above to: 

Name : 

Address .. 

Cit V — State Zip. 



(Allow 6-8 weeks for delivery) 



Best Sellers for 

APPLE Users! 

MICRO on the APPLE 

Programming aids, utilities, 
games, enhancements. Together 
Volumes 1, 2, and 3 contain over 
100 programs on diskette. Fully 
documented and explained. 
□ 3-Volume Gift-Boxed # $59.95 
D Vol.1D Vol.2D Vol.3 $24.95 ea. 



I'm paying by: D Check D MO 
□ VISA □ MC 

Total Enclosed: $ __ 

(Add $2.00 s/h per book.) 



Vlaa/MC#. 
Exp. Date:. 
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by Ralph Tenny 

have discussed the serial port on 
your computer and demonstrated 
experiments fox the Color Com- 
puter. As I mentioned previously, the 
serial port on several computers is a 
software toggle of a PIA bit. This type 
of port is often referred to as a hit 
banger, in case you have heard that 
term. Most previous experiments 
depended upon the serial port being 
software driven, but this month I have 
desiged an I/O port to work with any 
kind of RS-232 serial port. It will give 
you eight bits parallel output and eight 
bits parallel input, driven by the serial 
port of your computer. 

The device that allows this expan- 
sion is called a Universal Asyn- 
chronous Receiver/Transmitter 
(UART). UARTs are common in com- 
puters and, when used as originally in- 
tended, allow the microprocessor to 
write each character out on its data bus 
and go on about its business. The 
UART accepts this data, sets a "busy" 
flag, and serially transmits the 
character at a present baud rate. 
Simultaneously, the UART can 
monitor a serial input channel (at the 
same or a different baud rate) for in- 
coming data. If a character is received, 
the UART sets a "data ready" flag to 
signal that it has data. Remember, 
computers with bit-banger serial ports 
must be involved with sending and 
receiving serai data — counting down 
the timing loops to match the timing of 
the selected baud rate. Therefore, the 
computer can't do anything else during 
serial transmission. The UART allows 
the processor to do something else for 
relatively long periods of time. This 
project will show you a slightly dif- 
ferent use for a UART, but the UART 
will function about the same. 

Let's look at a typical UART (figure 
1). There are eight parallel input lines, 
eight parallel output lines, a serial in 
line and a serial out line, a clock line 
for each channel, and various hand- 
shake and status lines for each channel. 
The principle of operation for a UART 
is basically simple and involves having 
the clock speed 16 times the bit rate or 
baud rate. It is also important to 



remember that asynchronous transmis- 
sion of serial data has another impor- 
tant feature — the start bit/stop bit 
protocol. That is, when data is not be- 
ing sent, the serial line is held at a logic 
1 level; when a character is sent, the 
serial line is taken to logic for one bit 
time. Immediately after that, the bits 
are sent, one at a time, until the re- 
quired number of data bits (usually 
eight) are sent. Then either one or two 
stop bits will be sent; that is, the serial 
line will be held at logic 1 for either one 
or two bit times. 

It is easy to understand how the 
UART manages the proper bit timing to 
transmit a character, but how about the 
receive operation? Here is where the 
16X-bit clock comes in. Inside the 
UART, a very simple circuit spins in a 
loop, waiting for the start bit to hap- 
pen. As soon as the serial line goes to 
logic 0, the input circuit counts off the 
next eight bit clocks and samples the 
serial line again. If it is still at logic 
with half a bit time used up, a start bit 
is recognized. Next follows a delay of 
16 clock periods and the line is sampled 
again. That means that the logic level 
of the serial line is checked at about the 
middle of each bit time, and the or 1 
levels are reconstructed into an 8-bit 
binary word. While the stop bits are ac- 
tive, the input circuit is getting ready 
for the next character. 

The description of how the various 
hard-shake and status lines operate 
will be left for you to work out. The 
data sheet furnished with the UART 
specified will aid in this research. 
Ignore those pins that require no con- 
nection; this will simplify the 
schematic diagram of the project. Table 
1 shows the various pin names you 
need to hook up and how to strap them 
to obtain the performance you need. 

Figure 2 shows the schematic of the 
serial/parallel converter. Ula and Ulb 
plus a special crystal make a precision 
oscillator to drive the UART clock. U2 
and U3 form a divide-by-47 circuit to 
change the 455 kHz oscillator to the 
9600 Hz clock needed for a 600-baud 
interface (600 x 16 - 9600). Look at 
the divider network for a moment: 47 
decimal is 2F hexadecimal, and U2 is a 



7-bit binary counter. A full count on U2 
is 7F, so if you skip the high-order out- 
put of U2 (/128) and connect the /64, 
/16, /8, /4, and /2 outputs to an AND 
gate (U3), then the output of the AND 
gate will go high every 47 input clock 
cycles. Pin 2 of U2 is the RESET pin, so 
U2 will divide by 47, giving the re- 
quired 9600 Hz (within .8%). 

The /64 output is sent to the UART 
for both clock inputs. U4c is a power- 
up RESET circuit, which performs the 
required initialization of the UART, 
while U4a and U4b generate a slow 
clock signal, which causes the UART 
to periodically sample the parallel in- 
put lines and send a serial data stream 
to the computer. There are two ways 
you can make the computer read this 
input: yov can put the computer into a 
loop polling the serial input line until it 
gets an 8-bit character, or you can have 
it respond to an interrupt. Those with 
other computers may have to rely on 
polling, but the Color Computer has an 
interrupt input on the serial port. U4b 
and Q2 "tickle" the CD input of the 
serial port, and you can either poll the 
port or set up an interrupt. U4a and 

(Continued on next page) 



Table 1 

1. Vcc- +V 

2. N/C 

3. GND 

4. Received Data Enable - GND 

5. 12 Received Data Bits 

17. Receiver Clock 

18. Reset Data Avail. - + V 

20. Serial Input 

21. External Reset 
23. Data Strobe 

40. Transmitter Clock 

39. Odd/Even Parity Select - GND 

38. # Bits/Char. 2 - +V 

37. # Bits/Char. 1 - +V 

36. # Stop Bits - GND 

35. No Parity- +V 

34. Control Strobe - +V 

26-33. Data Bit Inputs 

25. Serial Output 
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U4b generate a slow-trigger waveform, 
causing the UART to load whatever 
logic levels are on the input lines (DB7- 
DBO) and then transmit that binary 
word to the computer. 

Anytime CD is pulled up by Q2, the 
IRQ flag in the PJA is set; if interrupts 
are enabled, the computer can be pro- 
grammed to read the input port to ser- 
vice the interrupt; otherwise, the com- 
puter would have to poll the interrupt 
bit as was done on the previous input 
adapter (MICRO 63:122). U4c 
generates a .2-second delay as power 
comes on,- this resets the UART. Ulc 
and the associated resistors adapt the 
incoming RS-232 levels to the UART 
serial-in line, while Ql is driven by the 
serial-out line from the UART. 
Although Ql and Q2 feed the RS-232 
lines on the computer, their output 
swings only from Vcc to ground. This 
will work over short distances (about 
10') with no problem on most com- 
puters. If your computer fails to 
recognize the 0-volt signal as an RS-232 
logic 1, change the Ik resistors with Ql 
and Q2 to 3.9k resistors and connect 
them to a source of negative voltage 
greater than -3 volts. 

When you begin to build this serial 
I/O adapter, you will note some 



simplification in the schematic and 
parts list, which was done to give you 
some practice in skills needed to design 
your own computer interfaces. The 
parts list shows some parts without 
Radio Shack part numbers, and no part 
numbers are given for resistors and 
capacitors. Those parts not available at 
Radio Shack must be obtained at one of 
the sources listed in earlier columns. 
Also, not all the pin numbers of all ICs 
are shown. Ul, U3, and U4 are multi- 
ple gate packages, and any of the sec- 
tions of the specified IC will do the re- 
quired job. In addition, only the active 
signal lines are .shown on U5, but some 
of the lines not shown are listed in the 
table, showing whether the pins must 
be tied to Vcc or ground. Pins of U5 not 
shown in either the schematic or the 
table are output lines that are not used; 
leave them unconnected. You can test 
the output lines (RD0-RD7) with a 
voltmeter or logic probe. If you type 
PRINT#-2 CHR$f69), bits RD6 through 
EDO should contain the pattern (in 
binary): 1000101 or 45 hexadecimal. 
Input testing will be more difficult 
since many dialects of BASIC do not 
expect to receive data over the serial 
port This problem will be covered next 
month when 2 discuss the programming. 



You may contact Mr. Tenny at P. O. Box 
545, Richardson, TX 75080. 



Figure 1. Plnout for standard 
UARTs. Some pin name 
abbreviations are given in the 
text, and ail are explained in 
UART data sheet. 



Vcc l 
N/c 2 

Vfli 3 
RDE 4 
RD7 S 
RD6 6 
RD5 7 
R»4 e 
R»3 9 
RD2 10 
RD1 11 
RDO 12 
PE 13 
PE 14 
OR 15 
SWE 16 
RCP 17 
RDV IB 
DAV 19 
SI 201 



40 TCP 
39 EPS 
38 NB2 
37 NB1 
36 TSB 

33 NP 

34 CS 
33 DBO 
32 DB1 
31 DB2 
30 DB3 
29 0B4 
28 DB5 
27 0B6 
26 DB7 

23 SO 

24 EOC 
23 OS 
22 TBMT 
21 XR 



3 (toe. i mag 



Figure 2. Schematic for UART* 
based serfa!*paraliei adapter 
Which converts an RS-232 serial 
port Into a parallel port. Not all 
IC connections shown; see text 
for details. 
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TERMS $3,00 shipping, F 



orelgn prefers add-15%, Indiana residents add 5»V soles tax, 



3702 N. Wells StJ 

Fort Wayne, ind. 46308 

, (219)484-6414 j* 



COMPUTER 



MICRO-80 COMPUTER 

Z-80A CPU with 4Mhz clock and 
CP/M 2.2 operating system. 64K 
low power static memory. Cen- 
tronics parallel printer port. 3 serial 
ports. 4" cooling fan. Two8" single 
or double sided floppy disk drives. 
IBM single density 3740 format for 
243K or storage, double density 
format for 604K of storage. Double 
sided drives allow 1.2 meg on 
each drive. Satin finish extruded 
aluminum with vinyl woodgrain 
decorative finish, 8 slot backplane, 
48 pin buss compatible with OSI 

MODEL80-1200 $2093 

2 8" Single sided drives 

MODEL 80-2400 $3495 

2 8" Double sided drives 

MSCRQ-65 COMPUTER 

6502 CPU with 2Mhz clock and 
DOS-65 operating system. 48K of 
low power static memory. 2 serial 
ports and 1 Centronics parallel 
port. 2 8" single or doubls sided 
drives. Satin finish extruded 
aluminum with vinyl woodgrain 
finish. 8 slot backplane, 48 pin buss 
compatible with OSJ. Will run OSI 
65D and 65U software. Includes 
Basic E/65 a compiled BASIC for 
6502 CPU. 
MODEL65-1 $2sse 

2 3" Single sided drives 
MODEL 652 $3495 

2 8" Double sided drives 

BP-5808Slot Backplane $47 

OSi 48 pin Buss compatible 
MEM-CM9 MEMORY/ 
FLOPPY CONTROLLER 
24K memory/floppy controller card 
uses 21 14 memory chips, 1 8K and 
1 16K partition. Supports OSi type 
disk interface 

24MEM-CM9 $325 

16MEM-CM9 $280 

8MEM-CM9 $180 

BAREMEM-CM9 $ 50 

Controller on assembled unit 
add $ ®o 

B IO-1 600 Bare 10 card. . , $ 50 

Supports 8K of memory, 2 16 bit 
parallel ports, 5 serial ports, 
with manual and Molex 
connectors. 
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PRINTERS 



Okidata 

ML82A,120cps,10" 
ML83A,120cps,15" .$895 

ML84 Parallel, 200 caps, 15" .$1150 

Cloth 
8510APProwriter, parallel ...$419 
• J2! £ ps ' correspondence quality 
8510APDProwriter, serial. . . .$585 
F10»40PUStarwriter, parallel $1319 

Letter quality daisy wheel 
F10-40RU Starwriter, serial . . $1319 
F10-55PUPrintmaster $1610 

parallel, Letter quality daisy 

wheel 
F10-55RU Printmaster, serial $1610 

DISK DRIVES AND CABLES 
8"S6iugartSA801 $335 

single sided 
8"§hugart$A351 $g85 

double sided 
FLC-66 ft cable from D&N $69 

or OSI disk controller to 8" drive 
5V4 " MP! B51 disk drive with . . $450 

cable, power supply and 

cabinet. Specify computer type. 
FLC-SVi cable for connection .$75 

to 5% drive and D&N or OSI 

controller, with data separator 

and disk switch. Specify 

computer type 



HARDWARE 



* B COMPATIBLE" 

IO-CA10X Serial Printer Port . . $125 

Specify Device #3 or #8 

IO-CA9 Parallel Printer Port . .$150 

CM03-MEM 
64K CMOS static memory board, 
uses 6116 chips, 3 16K, 1 8K and 2 
4K blocks, Partitionable for multi- 
user, OSi type disk controller, 2 IO 
mapped serial ports for use with 
D&N-80 CPU. ideal way to upgrade 
from cassette to disk. 

64K CMOS-MEM $500 

48KGMOS-MEM $405 

24ft CMOS-MEM $260 

16K CMOS-MEM .$210 

BARE CMOS-MEM .$50 

Controller add. $ 90 

2 IO mapped serial ports add. $125 

on assembled memory board 
Z80-IO2 50 mapped serial $160 

ports for use with D&N^80 CPU 

card 

FL470 Disk Controller $155 

5% or 8" drive 

MICRO 




STANDARD 
CP/M FOR OSI 



D&N-80 CPU CARD 

The D&N-80 GPU allows the owner 
of an OSI static memory computer 
to convert to Industrial Standard 
IBM 3740 single density disk for- 
mat and CP/M operating system. 
Double density disk operation is 
also supported for 608K of storage 
on an 8" diskette. When used with 
a 5 1 /4 " disk system 200K of storage 
is provided. Optional parallel 
printer and real time clock. Also 
available for polled keyboard and 
video systems. Compatible wiih 
C2, C3, C4 and 200 series OSI com- 
puters. 

INCLUDES CP/M 2.2 

D&N-80-1 Serial 8" disk $595 

D&N-80-2 Video 5 V*" disk $595 

D&N-80-3 Video 8" disk $595 

Option 001 $ 60 

Parallel printer and 

real time clock. 

HARD DISK DRIVER $140 

Allows D&N-80 CPU board to con- 
trol OSI 40 or 80 meg hard disk unit. 
Will not destroy OSI files. Will also 
allow for a true 56K CP/M system. 
Specify 40 or 80 meg drive. 
BUSSTRANSFER $135 

Allows for D&N-80 and OSI CPU to 
be in the computer at the same 
time. Toggle switch provides for 
alternate CPU operation. 
DJSKTRANSFER $100 

Utility program to transfer OSI 
CP/M format disk to IBM 3740 
single density format. Will also 
transfer IBM to OSI format. 
SYSTEM HARDWARE 
REQUIREMENTS 
D&N-80 CPU, D&N FL470 or OSI 
470 controller, 48K memory at 
0000-BFFF, 4K memory at D000>- 
rjFFF, two disk drl vocables. 
FORMATfRANSFER $15 4 

You supply software on8^diske1te *^ 
D&N will transfer OSi CP/M formal >*' 
to ^BM 3740 CP/M format. Cahalsb % 
tra^fer IBM 3740 GP/Mfol-matstb ^ 
OS! CP/M format^OrlginaWiskette t 
returned. ? ! \'i : '< 
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t OHIG SCSEHTIHC 

THE WIZARD'S CITY - 
search for gold In the dun- 
geons beneath the Wizard's 
city or in the surrounding 
forest. A dynamic adventure 
allowing progress in strength 
and experience. All OSI — 
cassette $12.95, disk $15.95. 

OSI HARDWARE 15% OFF 
RETAIL PRICES! 

GALACTIC EMPIRE - a strat- 
egy game of interstellar con- 
quest and negotiation. Com- 
pete to discover, conquer, and 
rule an empire with the com- 
puter or 1-2 other players. C4P, 
C8P cassette $12.95, disk 
$15.95. 

AIR TRAFFIC ADVENTURE - 
a real time air traffic simula- 
tion. C4P, C8P disks $15.95. 
Plus S-FORTH, PACKMAN, 
CRAZY BOMBER, ADVEN- 
TURE, TOUCH TYPING, IN- 
TELLIGENT TERMINAL and 
more. Send for our free 
catalog including photos and 
complete descriptions. 

(312) 259-3150 

Aurora Software Associates 

mm 37 S. Mitchell 

Arlington Heights 

Illinois 60005 



JEZfd nim 

PROWRITER PRINTER 

*395 



FRANKLIN 




HARDWARE 



ACE 



The ProfMsIonal Personal Computer 
INTRODUCTORY PACKAGE 

• Franklin Ace 
1000 

• 1-Dlsk Drive 

• Green Monitor 

QUICK BROWN FOX 

$55 25 



CALL FOR THIS MONTH'S SPKriAi 



1-800-835-2246 EXT. 211 

OR 

702-459-4114 



vSP <»30 Ea»t Charleston Blvd. TEBR 

ssar suite 4M &S3 

Las Vegas. Nevada 89122 - !r;T S - 
Add $3,00 for Shipping, handling and insurance. 
Nevada residents add 5.75% sates tax. Please include 
phone number. Equipment subject to price change 
k and availability. Call or write for price list. 






New Publications 



Polishing You* Apple, Volume 2, by Computer Town; Bringing Computer 

Herbert M. Honig. Howard W. Sams & Literacy to Your Comunity, by Liza 
Co. Inc., 4300 West 62nd St., Loop, Julie Anton, and Ramon Zamora. 
Indianapolis, IN 46268, 1983, 107 Reston Publishing Co, Inc., a Prentice- 
pages, paperback. Hall Company, Reston. VA 22090 
0-672-22160-8 $4.95 1983, 160 pages, paperback. 

0-8359-0875 $12.95 



Apple H, BASIC Programs in Minutes, 

by Stanley R. Frost. SYBEX, 2344 Sixth 
St., Berkeley, CA 94710, 1983, 176 
pages, paperback. 

0-89588-121-7 $9.95 

plus $2.00 s/h 



How To Do It on the TRS-80, Mode! I, 
II, m. Color Computer and Model 100^ 
by William Barden, Jr. IJG Inc., 1953 
West 11th St., Upland, CA 91786, 
1983, 300 pages, paperback. 
0-936200-08-1 $29.95 



How to Build a Program, by Jack 
Emmerictis. Dilithium Press, P.O. Box 
606, Beaverton, OR 97075, 1983, 346 
pages, paperback. 
0-88056-068-1 $19.95 



Learn to Type on Your Computer, by 

Frank P. Donnelly. Dictation Disc Co., 

240 Madison Ave., New York, NY 

10016, 1983, 33 pages, cardstock, 

wire-o-bound. 

0-936862-16-5 $10.00 



PET/CBM, An Introduction to BASIC 
~ ogramming and Applications, by 

Gene Streitmatter. Robert J. Brady Co, 
a Prentice-Hall Publishing Co., Bowie' 
MD 20715, 1983, 341 pages, paperback. 
0-89303-204-2 $13 95 



The Art of Computer Programming, by 
Donald William Drury. Tab Books, 
Inc., Blue Ridge Summit, PA 17214, 
1983, 303 pages, paperback. 
0-8306-1455-9 $10.95 



Learning Simulation Techniques on a 
Microcomputer, by Pat Macalugo. Tab 
Books Inc., Blue Ridge Summit, PA 
17214, 1983, 139 pages, paperback. 
0-8306-1535-0 $10 95 



Beginner's Guide to Reading 
Sc&emetics, by Robert J. Traister. Tab 
Books, Inc., Blue Ridge Summit, PA 
17214, 1983, 134 pages, paperback. 
0-8306-1536-9 $8 05 



User's Hamdhook to the VIC-20 Com- 
puter, by Jeffrey R. Weber and Stephen 
J. Szczecinski. Weber Systems, Inc., 
8437 Mayfield Road, Cleveland, OH 
49026, 1983, 278 pages, paperback. 
0-938862-48-0 $13.95 



Programming Your Atari Computer, by 

Mark Thompson. Tab Books Inc., Blue 
Ridge Summit, PA 17214, 1983, 272 
pages, paperback. 
0-8306-1453-2 $19 95 




_ w Selection Guide, by Dan 
Poynter, Para Publishing, P.O. Box 
4232, Santa Barbara, CA 93103, 1983 
164 pages, paperback. 
0-915516-33-0 $11.95 plus $1 s/h 
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The DIF Me, by Donald H. Beil, 
Reston Publishing Co., Inc., A 
Prentice-Hall Company, Reston, VA 
22090, 1983, 235 pages, paperback. 
0-3359-1305-8 $15.95 



Encyclopedia of Computer Terms, by 

Douglas Downing, Barron's Educa- 
tional Series, Inc., 113 Crossways Park 
Drive, Woodbury, NY 11797, 1983, 
148 pages, paperback. 
0-8120-2519-9 $6.95 



Microprocessor Based Robotics, by 

Mark J. Robillard, Howard W. Sams & 
Co. Inc., 4300 West 62nd St., In- 
dianapolis, IN 46268 1983, 220 pages, 
paperback. 

0-672-22050-4 $16 95 



UNIX Primer Plus, by Mitchell Waite, 
Donald Martin, Stephen Prata, Howard 
W. Sams & Co. Inc., 4300 West 62nd 
St., Indianapolis, IN 46268, 1983, 414 
pages, paperback. 
0-672-22028-8 $19.95 



Your First BASIC Program, by Rodnay 

Zaks, SYBEX, Inc., 2344 Sixth St., 

Berkeley, CA 94710, 1983, 187 pages, 

paperback. 

0-89588-092-X $9.98 plus $7 s/h 



Easy Guide to Ydur Apple II, by Joseph 

Kasciner, SYBEX, Inc., 2344 Sixth St., 

Berkeley, CA 94710, 1983, 147 pages, 

paperback. 

0-89588-122-5 $9.95 plus $2 s/h 
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Computer Software Associates, an 
established software house, supplies soft- 
ware for COMMODORE, APPLE, and IBM 
home computers. CSA is currently looking 
to expand its product base of serious pro- 
grams in the areas of home, education, and 
office. 

Computer Software Associates offers 
over 30 years of market experience, world- 
wide distribution, innovative packaging, 
generous royalties, and programmer support. 

Interested programmers should con- 
tact Mike Mohan, Product Development 
Department, Computer Software Associates, 
50 Teed Drive, Randolph, Massachusetts 
02368. Tel. (617) 961-5700. 



\ SOFTWARE 

ASSOCIATES 



f he's working this hard 
WmtMwmMlkmugh college, 

m^mmbM work for pm. 




This part-time worker is a full- 
time student at a United Negro Col- 
lege Fund college. He's one of thou- 
sands who work because it's the 
only way they can afford college. 
And who are too committed to fields 
like business administration, mar- 
keting, or engineering, to give up. 
(Almost 25% of our graduates have 
business degrees.) 

When your company contributes 
to the Fund, it helps 42 private, pre- 
dominantly black colleges and uni- 
versities keep tuition affordable for 
these students. Students who aren't 
afraid of working hard now. Or after 
they graduate. 

For information on how to con- 
tribute, write on your company let- 
terhead to the United Negro College 
Fund, Box E, 500 East 62nd St., N.Y. 
N.Y. 10021. ' 




A«fundlisaterribk 



©1982 Unlied Negro Collega Wm, inc. 
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Reviews in Brief 



Product Name: Vanilla PILOT 



Equip, req'd: 



Price: 
Manufacturer: 

Contact: 



Any PET, CBM, Commodore 64, or 

VIC-20 (with at least 16KJ 

Both disk and tape versions are available 

$29.95 

Tamarack Software 

Darby, MT 59829 

Computer Marketing Services Inc. 

300 W. Marlton Pike 

Cherry Hill, Nf 08002 



Description: PILOT is an easy-to-learn language used to 
teach programming and computer concepts to children 
and other computer novices. The Vanilla version of PILOT 
is an inexpensive and relatively complete implementation 
of the PILOT language. It has all of the standard PILOT 
commands such as ACCEPT, TYPE, MATCH, CAL- 
CULATE, JUMP, and USE plus additional commands for 
sound and turtle graphics (using the quarter-space squares 
in the CBM graphic-character set). The VIC and 64 ver- 
sions also have special commands for color and joystick 
control. Any of these commands may be executed condi- 
tionally based on the status of the last MATCH. Vanilla 
PILOT allows you to enter and edit your programs using 




P.O. Box 4364 
Flint, Michigan 48504 
(313) 233-5731 
(313) 233-3125 



the built-in screen editor. In addition to the standard 
Commodore editing features, Vanilla PILOT has 19 special 
commands including AUTO, FIND, CHANGE, RE- 
NUMBER, and TRACE. There is even a special command 
to allow you to "pretty-print" your program listings on 
the screen or on a printer. Programs may be saved on, or 
loaded from, tape or disk. 

Pluses: Written entirely in machine language, Vanilla 
PILOT is very fast. The editing commands are superb and 
the documentation is excellent! The turtle graphics 
capabilities are a great way to teach programming concepts 
to children and to let them have fun at the same time. 
Vanilla PILOT is a great value for the price! 

Minuses: Vanilla PILOT lacks several important features 
found in other implementations of the language. The most 
severe limitations are: 1. calculations are limited to addi- 
tion and subtraction of integers between - 999 and + 999- 
2. no string variables are allowed, so it is not possible to 
use this version for the poetry- or story- writ '•», exercises 
that are often a large part of other PILOTS; 3. conditional 
statements can only be YES or NO based on the last 
MATCH statement, so if you want to test for a specific 



SYSTEMS 



WE CARRY MANY VIC AND A PPLE PRODUCTS. PLEASE SEND FOR A CATAt OflllF 



CPIM BOARD 



BARE BOARD $29.00 



128K RAM* 

* COMPATIBLE WITH feLL SATURN SYSTEMS SOFTWARE * 



BARE BOARD $29.00 



« COMPATIBLE WITH THE VIDEX VIDEOTERM WITH SOFTSWITCH BUILT 



IN 



BARE BOARD $29.00 



ALL BOARDS HAVE SOLDER 

MASKING, COMPONENT LAYOUT, 

AND GOLD EDGE FINGERS 



BUILD YOUR OWN 

APPLE PERIPHERAL CARDS 

AND SAVE UP TO 80% 



WE WILL SUPPLY 

THE IC UST FOR 

ANY BOARD 



APPLE 11 IS TRADEMARK OP APPLE COMPUTERS INC 

Smcy ! ?A E c G ^JIc R |PJ, RADEMARK 0F DIGITAL RESEARCH. INC. 
VIDEX IS REGISTERED TRADEMARK OF VIDEX INC. 
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numerical value of a variable, the variable must first be 
converted to its ASCII representation and then a MATCH 
made against another ASCII representation. 

Documentation: Vanilla PILOT comes with a 113-page 
manual that is well-written and effectively illustrated. 
The first 86 pages contain a series of easy-to-follow 
tutorials aimed at beginning programmers. These tutorials 
have been classroom tested with children. The remainder 
of the manual is a reference guide and is aimed at the 
teacher and/or someone who is already familiar with PILOT. 

Skill level required: No special skills required. 

Reviewer: David Malmberg 



Manufacturer: 



ISA Software Inc. (HESJ 
14114 Dallas Parkway 
Suif:^ 530 
Dallas, TX 75240 



Product Name: CoCo 
Equip, req'd: 



Commodore 64 with either Datasette or 
1541 Disk Drive 



Price: 



$49.95 



Description: Coco is an educational computer game that 
teaches the fundamentals of BASIC as well as the com- 
puter itself. Via the screen display, the program shows 
how memory is addressed by registers and how instruc- 
tions to the computer (such as loops and subroutines) 
function. After taking you briefly through the keyboard's 
functions you are shown, step by step, how a simple 
BASIC program works. 

Pluses: The program breaks the screen into boxes, which 
outline the memory registers along with the in/out func- 
tions and the commands entered. Then it shows you how 
everything interacts. The examples given provide a variety 
of programming methods and will get the novice off to a 
good start in understanding the BASIC language. The 
package has both cassette and disk versions. 

Minuses: To run the program you need a Joystick Port 
Adapter, which I feel is easy to misplace thus rendering the 



YOUR COLOR COMPUTE! JUST EARNED A MATH DEGREE! 




MATHMENU 

Developed by an engineer, Mathmenu is a 
powerful menu-driven system to turn your 
Color Computer into an intelligent, flexible 
tool for mathematics and engineering. 
Mathmenu takes the tedium out of math, 
leaving your full brain power to attack the 
"meat" of your problems. By rapidly mani- 
pulating matrices and vectors, performing 
integration and differentiation, solving 
quadratic equations, plotting user defined 
functions and much more, Mathmenu can 
help simplify the most complex problems. 
Whether you are a student or a professional, 
if you use math, you need Mathmenu. 



FEATURING: 

• 3D SURFACE PLOTTING - Plots a user defined equation on an 
X,Y,Z coordinate system in the High-Res graphics mode. Planes, 
surfaces of revolution, statistical surfaces, etc. can be easily plotted 
Surfaces may be saved to disk or tape. We believe this is the only program 
of its kind commercially available for the Color Computer. 

PLUS: 

• Complete MATRIX Operations 
(up to 8 x 8) 

• Complete VECTOR Operations 

• Numerical Differentiation 

• Numerical Integration 

• Least Squares Curve Fitting 
« Binomial Expansion 

• Prime Number Verification 

• Main Menu with Single-key Selection 



2D Function Plotting 

Rectangular to Polar Conversions 

Base Conversions 

Large Number Addition and 

Multiplication 

Reverse Polish Logic Calculator 

with Hexadecimal 

Quadratic Equation Roots 

and Return (Disk Only) 

Complete documentation of all functions is included. 

For32KDs.sk , $49.95 n , . n 

For 16K Cassette $44.95 Ptottm S Requires Extended BASIC 

Documentation only .,.,,. $5.00 (refundable with purchase) 
Or write for free brochure. 



£> 



WSA" 



Inter <^cAction 

113 Ward Street • Dept. MI • New Haven, CT 06S19 • (203) 5S2-574S 
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(continued) 



program unusable. The cassette version does not have the 
lessons on how to use the program that the disk ver- 
sion has. 

Documentation: The reference manual provided is clearly 
written and well done and allows learning the material 
without the computer programs. 

Skill level req'd: None 

Reviewer: Richard E. DeVore 



Product Name: Word Attack 

Equip, req'd: Apple II + , 48K, one disk drive 

(also IBM version) 
Price: $49.95 

Manufacturer: Davidson & Associates 

6069 Groveoak Place, #12 
Rancho Palos Verdes, CA 90274 

Description: Word Attack is a four-part vocabulary 
building program that works. It can take the drudgery out 
of vocabulary drill and may be just the thing for those 
sagging S.A.T. scores. After you drill on three learning 
modes (choosing 4th- to 12th-grade words) you're ready for 
fun with the Word Attack mode. It's the old "blast the 
right answer" arcade game. 



Pluses: The program's most powerful feature is its editor 
mode, which allows you to create your own word lists. I 
handed our 10-year-old son the documentation and a list of 
troublesome math terms (complete with definitions and 
sample sentences). He had no trouble accessing the editor 
and was soon demolishing the likes of "quotient " 
' 'perimeter, ' ' and ' 'product. ' ' ' 

Minuses: When using the editor, lines cannot be deleted 
except one at a time. This is a minor problem considering 
the overall ease of creating, editing, and saving files. 

Documentation: Word Attack is a well-designed, well- 
documented program. The manufacturer has additional 
data disks ($19.95) for grades four through nine as well as 
one specifically for S.A.T. review. 

Skill level required: Word lists begin at 4th-grade level and 
go through 12th-grade level. 

Reviewer: Mario Pagnoni 



Product Name: 
Equip, req'd: 



Price: 




Bank Street Writer 

Apple II, Apple II + , Apple He, Atari, 

and one disk drive 

$69.95 



om fram sceert« Inc. 



• • SPECIALS • • 

A65-1 (1KRAM) $435 

A65-4 (4KRAM) $455 

A65-4B.4F (4K, BASIC or FORTH*) .$495 
A65-4AB (4K, BASIC & Assembler) .$525 
A65/40-5000 (32K RAM) $1250 

LANGUAGES for 
AIM-65® & AIM 65/40 

Assembler $35 

BASICROMs $65 

FORTH* ROMs .' .* ." .' .'$ 6 5 

ENCLOSURES & 
POWER SUPPLIES 

25S? $175 

g**A $115 

|NCfA $130 

ENC6A $140 



.. ptfucfttfiinal Computer Division 
EXCERT INCORPORATED 

'Wffitm* P.O. Box 8600 

S^fiS* 6 Whlte Bear Lake 

^SSSEBE^ Minnesota 551 1 

*.eppsu«li|iG (612)426-4114 








nm 65 SERIES 
Deduct 5% from list If 
ordered with AIM 65® or 
AIM 65/40. 

REPAIR SERVICE 

(out of warranty only) 
$25/hr. plus parts - $25 min. 

SPARE PARTS 
are available 



CASH DISCOUNT -Deduct 50/0 for Prepaid Orders 
(we pay shipping) 

m . ™ < TERMS: 

Net 30 from approved Companies & Institutions - otherwise COD 

Sh.pp.ng will be added to order. Minnesota residents add 6% sales tax 

Prices subject to change without notice. 

Authorized Dealers for: 

„. , n „ ROCKWELL INTERNATIONAL CORP. 
CUBIT, MTU. FORETHOUGHT PRODUCTS GORDO& 
SEAWELL. DYNATEM, APPLIED BUSINGS COMPUTER 

AIM-65 is a registered trademark of Rockwell International Corp 
FORTH is a registered trademark of Forth. Inc. 
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Manufacturer: 



Broderbund Software 
1938 Fourth Street 
San Rafael, CA 94901 



Product Name: The Color Connection 



Description: Bank Street Writer is a word processor that is 
simple enough for children to use but is surprisingly 
sophisticated. All operations are accessible from menus 
Features include page formatting, shift-key modification, 
file passwords, conversion of binary and text files erase 
and recover, move text blocks, and find and replace. 

Pluses: A complete, well-guided tutorial is provided on the 
master disk. Commands are continually displayed to pre- 
vent confusion. 

Minuses: The 40-column, non-scrolling display makes for- 
matting printouts difficult even with a "final draft" for- 
matting module. Having to exit Write mode for every little 
correction consumes time. Text in memory is limited to 
about 1500 words (3200 with a 64K Apple He). 

Documentation: Instructions are available on the disk; 
however, a booklet fills in any gaps. 

Skill level required: Beginner 

Reviewer : Mike Cherry 



Equip, req'd: 

Price: 

Manufacturer: 



TRS-80 Color Computer 16K 
$29.95 tape, $39.95 disk 

Computerware 

Box 668 

Encinitas, CA 92024 




Description: The Color Connection is a deluxe terminal 
package for the Color Computer. The program will work 
with any modem, but is specifically designed to work with 
the Hayes Smartmodem. All features of the Hayes modem 
are supported. I tested the disk version. There are two 
submenus accessed from the main menu: one loads the 
buffer and one accesses the set-up conditions. 

Pluses: The program is easy to load and use. Set-up 
parameters include 7- or 8-bit, auto-line feed, parity full 
or half duplex, phone number, macros 1-4, and save set-up 
tile. The buffer can be transferred to disk or viewed and 
can be loaded from either disk or keyboard. When in the 
terminal mode, the buffer can be opened and closed as 
needed. Buffer size is over 25K with a 32K machine. 

Minuses: The disk is auto executing and cannot be backed 

(Continued on next page) 

sssL 




TheSTARCOM 

$ 450°° 



ANOTHER TECHNOLOGICAL 
BREAKTHROUGH 

MAMAMMMAMAM 




*AUT0DIAL 300/1200 BPS 
212A COMPATIBLE MODEM 

^BUILT-IN SPEAKER 



^EXCLUSIVE TWO YEAR WARRANTY 

*VERY COMPACT 

COMPLETE C0MM SOFTWARE AVAILABLE 



TheOSCOM 

$ 520°° 



SIw To simp,ify its use by providing the "— * — <• 

I he SOFTCOM is a Communications Software Package for PC Microcomputer Users 

We Offer Very Generous Discounts To Our Dealers 

Si'i55i p JL ace Your 0rder Today 
ORDERS ONLY 1.800323-2666 

For Information Call 312-459-8881 

SNCOMM 

Division of Interbusiness Corporation 

115 N. Wolf Road 

Wheeling, IL 60090 
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GRANITE COMPUTER SYSTEMS 

THE DISASSEMBLER FAMILY 

Source listings identical with TSC 6809 EDITOR - User symbol 
tables • Local and global labels and expressions - Occurence 
numbered local labels • Easy identification of Data Areas - FOB - 
FOB • FCC - Step (optional) disassembly one program or data 
statement at a time • Source code disc or tape for TSC EDITOR 
input • Run TSC ASSEMBLER with no or minimal editing Monitor 
and FLEXTM references are named - Equate table for all external 
references - Problem codes flagged (6800 & 6502) 
Convenient menu driven options carry out tedious error prone 
disassembly operations • rapidly and accurately. 

6809 to 6809 DISASSEMBLER $75.00 

6800 to 6809 DISASSEMBLER $75.00 

6502 to 6809 DISASSEMBLER $75.00 

TEXTWRITER II - A complete Text Processor to use with the TSC 
TEXT EDITOR - The two programs run as one - All features you 
expect in a full text editing and processing system - (For 
example: Embed print control characters) • Menu driven 

Disk only $75.00 

TEXTWRITER I - A basic Text Processor program to use with the 
TSC TEXT EDITOR • with most of the features of TEXTWRITER II 
Specifically for tape systems 

Cassette only $50.00 

EPROMMER - Use with tha SWTPC MP-R Programmer $40.00 

FILEMANAGER ■ Use with the JPC TC-3 high speed I/O board • 
comprehensive cassette oriented operating system. $40.00 

All efficient - well documented • and • VERY FRIENDLY 
Run on any SS50 6809 with No or Minimal changes • Provided 

Object (Binary) programs on 5 & 8 FLEXTM discs or KC 
cassette Inquire about Color Computer availability - Non-FLEX 

FLEXTM i S a trademark of Technical Systems Consultants, Inc. 

GRANITE COMPUTER SYSTEMS 

Route 2 Box 445 

Hillsboro, NH 03244 

M/C VISA (603)464-3850 



Reviews in Brief (continued) 



I ^ _ HiVlsboro, NH032"44 | 
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ommodore 64 & Apple If 
ssembly Lanpai 
ebugger s^sr 

If you are developing ^^sm* 
software for the 
Commodore 64 or 
Apple II or are interested 
in assembly language programming, you needed this 
finely-crafted aid "yesterday." All the features you'd 
expect in an advanced debugger are included - step, 
breakpoints, windowing, super-complex conditional 
breaks, symbolic debugging, patch, show prior 128 
steps, and compiled BASIC-like language. Supplied 
complete with a detailed instruction manual. A new 
data sheet is available on request. 

PTD-6510 Debugger for Commodore 64 $65.10 

PTD-6502 Debugger for Apple II and He $49.95 

Manual (only) for above, each $10.00 

DisKit 64 Fast single disk copy 

(+ utilities) for Commodore 64 $75.00 

•PTD-6510 (Commodore) requires 1541 disk drive. 
PTD-6502 (AppteJ requires DOS 3.3, 48K. 

pTCRODAOYL 
SOFTWM€ 

200 Bolinas Road #27, P.O. Box 538 
Fairfax, CA 94930 (415) 485-0714 




up. Be sure to install a write-protect tab on the disk and 
use it only to load the program. There is no line-print utility. 

Documentation: An 8-page manual is included mat more 
than adequately explains software use. 

Skill level required: No particular skill level is required. 
Reviewer: John Steiner 



Product Name: Atari BASIC Compiler 

Equip, seq'd: Atari 400/800, 48K, one or more 
disk drives 



Price: 
Manufacturer: 



$99.95 

Datasoft, Inc. 

9421 Winnetka Avenue 

Chatsworth, CA 91311 



Description: The Atari BASIC Compiler compiles pro- 
grams written in Atari BASIC into machine code. This 
four-pass compiler offers the option of using integer or 
floating-point arithmetic. An optional BASIC-to-machine 
code reference map may be printed to disk, screen, or 
printer. Assembler source files are created and saved for 
assembly programmers using DATASM assembler. Com- 
piler design emphasizes speed over compactness in com- 
piled program. 

Pluses: The compiler is easy to use and fast. The choice of 
floating-point or integer arithmetic is important to those 
doing complex calculations. The line-reference map and 
assembler source files would be a great aid to those 
wishing to learn assembly language. Compiled programs 
are easy to load and fast running. Commercial sale of 
compiled programs is possible with a simple acknowl- 
edgement. The program and documentation are attrac- 
tively packaged. 

Minuses: The compiler does not support BYE, CONT, 
CLOAD, CSAVE, DOS, ENTER, LIST, LOAD, NEW, 
SAVE, RUN "filespec," GOTO variable, or GOSUB 
variable. Some minor modifications may be needed to 
BASIC programs before compiling. 

Documentation: Concise and well organized. Sections on 
error handling and BASIC program optimizing are 
very useful. 

Skill level requited: Beginner/intermediate BASIC 
programmer. 

Reviewer: Tim Kilby 
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$cre@ft Editors Vrv<|enerate ybur v I 
Apple, "M^liCdi^otkif^ and TRS-80 



DrawSrig Package — An example 

of wfyat you pah do with your own 

^ers^^^^^^^^^^^BS^^^^ft 

gflBHBnHmUBBflnMBMMNHBB 

Also; Bb& our Buyer's! Guide — Just in 
time for your Christmas shopping. 

Reac © tow.' 

machSrie*sp( is ,«*■- included 

are a bar-graph generator for the Apple 
arid OS-9 for the TRS»80 Color Computer, I 



P(©ftW[i^^(i 



Ver. 2 For your APPLE II/II+ 

The complete professional software* system, that meets 
ALL provisions of the FORTH— 79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH- 
79 with the FORTH you are now using, or plan to buy! 



FEATURES 



OURS OTHERS 



79-Standard system gives source portability. YES 
Professionally written tutorial & user manual 200 PG. 

Screen editor with user-definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 

Both 1 3 & 1 6-sector format. YES 

Multiple disk drives. YES 

Double-number Standard & String extensions. YES 

Upper/lower case keyboard input. YJ !S 

LO-Res graphics. YES 

80 column display capability YES 

Z-80 CP/M Ver. 2.x & Northstar also available YES 

Affordable! $99.95 
Low cost enhancement option: 

Hi-Res turtle-graphics. YES 

Floating-point mathematics. YES 

Powerful package with own manual , 

50 functions in all, 

AM951 1 compatible. 

FORTH-79 V.2 (requires 48K & 1 disk drive) 
ENHANCEME. T PACKAGE FOR V.2 

Floating point & Hi-Res turtle-graohics 
COMBINATION PACKAGE 
<CA res. add 6% tax: COD accepted) 



$ 99.95 

$ 49.95 
$139.95 



Micromotion 

12077 Wilshire Blvd. # 506 
LA.. CA 90025 (213) 821-4340 
Specify APPLE. CP/M or Northstar 
Dealer inquiries invited. 





m 

4^ 7^ ♦ L^ A SOLID STATE DISK EMULATOR 





tmtmMmmmk „«..„ Basic 

increase your 

computer's productivity 

The INTERSTELLAR DRIVE is a high performance 
data storage subsystem with independent power 
supply, battery backup, and error detection. It has 
256KB to 1 Megabyte of solid state memory integrated 
to perform with your operating system. 



Save valuable time! 

5 to 50 times faster 

performance than floppy disks 

and Winchester drives 

PION'S INTERSTELLAR DRIVE is designed for use with a 
family of interfaces and software packages. Currently avail- 
able are interfaces for IBM, S100, TRS80, Apple, SS5Q, and 
most Z80 uP, and software for most popular operating systems. 
Additional interfaces are continually being developed for the 
most popular computers. 

Price for 256KB Unit [Includes Interface and softvvarel 

% d^S ^ m tax * wftere typKwMe) and shipping 

Visa and Master Card accepted. 



fiw*-« TeM6t7J923-8009 

10IR Walnut St,Watertown, IWIA 02172 

TRS80 trademark of Tandy Corp. Apple trademark of Apple Computers 
Interstellar Drive trademark of PION, Inc. 
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Plmi One Year Subscription to "MICRO 



4 Second Prizes: Eton off Disks 

Plus: On® Year S 



Loading Edgi 
to rnicm 




4 Third Prlies; 1 Yoar Subscription to IllCflO 



Awarded One In Each Category: Atari, Apple, Commodore, TRSS0C 



m 






fftday 



1. No purch Iciai Entry 
Forms araav Wagazlrie, or 
may be bWained^free of charge? from retail 
stores}selllng MICRO Magazine, or from 
MICRO Magazine c a self- 
addressed, Stamped envelope to: MICRO 
Graphic Contest,:p.O. Box 6502, Amherst, NH 
03031, Exact copies oflheOfflciarEntry 
Form are also acceptable/ 'C 

2. Ail entries must be on line-readable 
format and, if poaslfcile, should be 
accompalnedby afphbtograph or 35 mm 
slide of the monitor screen taken while the 
graphic is being displayed. Submitted ~ 
material will not be returned unless a Self- 
Addressed, Stamped Envelope is provided. 
MICRO assumes ho responsibility for lost 
slides or damaged material. 

3. Ail entries must be postmarked no later 



thanDecember;15,;T983.'';'-,:r?v ' '".•■:)[" 

4. Contestants may enter as many times as 
they choose, : howevereach graphic 
submitted must be ah original "work and must 
be accompanied by its own entry form. Each 
graphic should be titled. 

5. All prizes will be awarded. In the event 
contest judges are deadlocked on the winner 
of any prize, trie prize will be awarded to the 
contestant whose entry Ms the earliest 
postmark/Substitutions are not allowed. All 
decislonsof the judges are final. 

6. By submitting^ graphic to be judged, the 
contestant swears arid affirms that the 
graphic is an original w by the 
contestaiit^and assigns all rights to 
reproduce the graphic, for ho additional 
consideration, to The Compuferist, Inc., and 
its divisions: Micro Ink, and MICRO 



Magazine. The contestant is liable for any 
and all litigation, court costs, and attorneys' 
fees resulting from his or her submission of 
plagiarized or stolen graphic programs. 

7. Winners will be announced in the March 
1884 issue of MICRO Magazine. A list of all 
winners may be obtained after March 1, 1984, 
by mailing your request and a self-addressed 
stamped envelope ; to: MICRO Graphic 
Contest, P.O. Bpx^502, Amherst, NH 03031. 

8. Employees of The Computerlst, Inc., 
Micro ink, and MICRO Magazine, as well as 
MICRO Magazine's columnists and 
contributing editors are ineligible. 

9. The MICRO Graphic '.Co'ritest'Js a contest 
of skill, talent, and programming ability and 
In no way constitutes a game of chance Or 
lottery. Void where prohibited by law. 



OFFICIAL ENTRY FORI 



licit© C Contest Melal Entr^ Form 



Name 



System 



Street 



1 City . 



State. 



.Zip. 



Graphics Package 
Title of Graphic 



Phone 
Age _ 



I have read the MICRO Graphic Contest rules 
and understand and have followed all regulations. 



Signature 

Complete and mail with your graphic to: MICRO Graphic Contest 

P.O. Box 6502, Amhorst, NH 03031 



Apple*, Commodore 
Timex/SincSair* . . . 
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by William B. Sanders 



The idea of getting your own computer 
sounded wonderful. But now that you hove it 
you're a little scored . . . you think it sounds so 
technical. Well, take heart. Relax. Help Is here. 
William B. Sanders has written individual books 
about the Apple, the Commodore 64, and the 
Tlmex/Sinclair computers. When you select the 
one which matches yo\»r computer you con 
breathe easy because WW be like having your 
all-time favorite teacher aryour side . . . gently 
guiding you, explaining, and showing. 

THE ELEMENTARY series sweeps away rhe 
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8943 Fullbrighr Ave., Chateworrh, Co. 9131 1 . (213) 709-1202. 

VISA/MASTERCHARGE accepted. $2.00 shipping/handling charge. 
(California residents add 6V4% sales tax) 
'Apple, Commodore 64, and Timex/Sinclair are trademarks 
respectively of Apple Computer, Inc., Commodore Business 
Machines, Inc. ancJTImex Computer Corp, Copyright 1983 Datamost Inc. 



confusion and explains your 
Apple, Commodore 64 or 
Timex/Sinclair in down to 
earth terms, coupled with 
enjoyable cartoons. It 
^ showsyouhowtohookit 
up, how to use the key- 
board and work on 
the screen— all the 
unique things your 
g^-^cbmpufer can do so you 
can make use of it right away! And 
it also answers those questions you'll 
have about how to write your own simple pro- 
grams, about graphics, utility programs, and 
various hardware options. 

You'll see your ELEMENTARY book contains a 
lot of information. And, you'll also see that not 
one paragraph or chapter is dull or difficult to 
follow. Prove ityour yourself. Visityour computer 
store. Open the book. Read a page of the 
introduction, then flip to any page and read a 
paragraph or so. You'll find it's as understand- 
able, os helpful and as marvelous as we say. 
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MICRO Magazine is not responsible for claims made bv 
*?,J.?, ver ! lse fu' A ? y com PWnt should be submitted 
directly to the advertiser. Please also send written 
notification to MICRO. 



National Advertising 

Representatives 



Home Office: 



?« !i la J!? oDo " ou 9 h ' Advertising Representative 
10 Northern Boulevard 
P.O. Box 6502 
Amherst, NH 03031 



West Coast: 

The R.W. Walker Co., Inc. 
Gordon Carnie 

2716 Ocean Park Boulevard, Suite 1010, 
Santa Monica, California 90405 (213) 450-9001 
serving: Washington, Oregon, Idaho, Montana, Wyoming, Colorado 
New Mexico, Arizona, Utah, Nevada, California, Alaska, and Hawaii 
(also British Columbia and Alberta, Canada) 
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Mid-West Territory: 

Thomas Knorr & Associates 
Thomas H. Knorr, Jr. 

333 N. Michigan Avenue, Suite 401 

Chicago, Illinois 60601 (312) 726*2633 

serving: Ohio, Oklahoma, Arkansas, Texas, i'orth Dakota &t>,nh 

2?*#*' N £ rask * Kansas > Missouri, Indiana. Ilfinois tm 
Michigan, Wisconsin, and Minnesota. ' 



111 






* 'fTf* '" ,h0 avallabill, y °* microcomputers created a 16.1 percent increase in the number of aotivelv 

SEES. W. T""" 8 ' r0m i anuary 1 " 1983 ,0 Ju * 1 - According to an analysIs^Mh . WfS SOURCES 
data base. The analysis, a regular feature of the quarterly DATA SOURCES directory was based on IBM 
computer systems from 566 vendors. Nearly « third of all the systems mm*Sr2Z^mi*m2l2£2*n The 
hjgh-end microcomputer vendors led the activity with a 61.1 percent Increase In systems and th^Sf.™ I* 
44 new products. Sixteen new portable computers were announced reprinting a55 2 Percent tlxSon «n rt 77 
desktop and personal computer units were unveiled for an Increase JalXt^muSSSS^^SL 
than one new mlcrccomputer-based system for every working day In the time period anatoed 

, 5 s^E^rwr^ a 



• • The FORTH National Convention will be held October 14.15 1983 at the u U o« d.i- a»„ ^ ... , 

roRTH-Based^yslerns. The convention is^^ 

the needs of FORTH enthusiasts - fromtsedinner to nmte«l™* „!°L ? 2 P ( J? and ls P re P a red to meet 

exhibits/vendor booths, lectures and SuXns ForXe^ 

write the FORTH Interest Group, P.O. Box 1105, San Carloa^CA 940TO. Reg?sJrl«on ° $5 £ (415 > ^^ °' 



™&2S%&&1&Z^T»^^ h , as T r ouncad by Ge " aral E,a <* ri ° 



• •- The National Software Show will be held October 1S-21 1983 at the <s»« bWhm*^ t«^ ei> n , a 

S^%£ more in,oma,lon — "■ "-"ML: ^WWa^SS san 






■*-■ • CompuServe subscribers can access FIRSTWORLD Tmvai Qami** t„ **„ u « 
CompuServe Incorporated is a computer services company Drovldino vain* 3 hh^ **♦« 
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neation - with an intelligent, full2l2A 300/1200 
baud modem - with a real. time clock/calendar - 
and with the capability to expand into a com- 
plete telecommunications system. It's time'for 
PRO.MODEM 1 200. Muc^h more than just a phone 
modem. - " • 

When you're on-line, time is money. PRO-MODEM 
telecommunication systems help you save By - 
monitoring the duration and cost of your phone '< 
calls. And by sending and receiving messages 
unattended, at preset times when the rates are ' 
lower. : . with or without your computer. .^: 

Compare the S495FRO-MODEM 1 200 with any othf 
modem on the market. For example, you'd have t< 
buy both the Hayes Smartmodem 1200 plus their " 

Chronograph for about. S950 to get a mddem with 
time base. ' . > 

PRO-MODEM 1 200 is elsy to use. A convenient ' ' 
Help command displays the Menu of operatinq 
command choices for quick reference whenever 
there s. a question abput what to do next. Extensive 
internal and remote self-diagnostics assure that {'he 
, system, is operating properly^Some of the other . 
. -.standard features include Atfto Answer Touch 
'.*r Tone and PUIse Dialing, and Programmable Iritelli- 



AAm™'"^ dOGS more> !t lets you build - a full tele- 
communications system with features like Auto 
Dialer, Incoming and Outgoing Message Buffering 
Business/Personal Phone Directory, Program- 
mable Operating Instructions, a 12-Chara.cter 
Alpha-NumericTime and Message Display and 
versatile PRO-COM Software. PRO-MODEM com- 
mands are.Hayes compatible so you can use most 
existing telecommunications software without 
modification. 

There's much more to the PRO-MODEM story See 
your local dealer for complete details'. Hell show 
you how to save time. And money, 
"rometheus Products. Inc.. 45277. Fremont Blvd 
remont CA 94538. (415) 490-2370 ' 
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